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SECTION  VI 


SUBROUTINE  LISTINGS 


This  section  contains  the  listings  of  all  the  EASY  ACLS  subroutines, 
listings  are  ordered  alphabetically  according  to  subroutine  name. 
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Table  128:  LISTING  FOR  SUBROUTINE  AB 


CAB 

SUBROUTINE  A8(A3L.XYZ,0SM,IAL,REL,ZTR, 

1  FXT,FYT,  FZT,TXT,TYT,TZT,PTR,PTRO,IPTR,PTL,PTLD,IPTL, 

2  VTR,VTRD» IVTR,VTL, VTLO, IVTL»wAR»WAL  »CPT, 

3  ROL,PIT,YAW,X,ALT,U,V,W,PA,VUfEPC,WTR,TTR,WTL,TTL,ANE, 

4  ANSET,ANPTS,8ST,WLTfC01fCD2,C0A,BSCG,WLCG»TAU,P ,Q,R, 

5  AMOOS,ANR,OL,H,OMP ) 

VERSION  1.  APRIL  10,1978  - 

PURPOSE  -  MOOEL  TrtE  PNEUMATIC,  GEOMETRIC  AND  RESULTING 

-  DYNAMIC  RESPONSE  OF  A  INELASTIC  AIR  9AG 

-  SUSPENSION  SYSTEM, 

METHCO  -  SEE  AIR  BAG  DOCUMENTATION,  VOL  I,  FINAL  REPORT 

DIMENSION  A (6) ,B(6)  ,L0<6) ,XA< 12) ,YAC12  >,ZA< 12),D(12> ,S( 12), 

*  I S ( 12  ) , AP ( 12 ) »LP( 12) »LH( 12) ,MU( 12)  ,REL(1) 

01  MENS  ION  XBA(12) ,YBA(12) ,ZBA(12) ,GA(6),G8(6) 

DIMENSION  ABL(1),XYZ(1) ,DSM( 1) ,1 AL( 1) 

DIMENSION  XMU(A.)  ,ZTR(  1) 

REAL  L0,L?,LH,MU,L3,L1,IAL 

DIMENSION  AZO(6),AYO(10,10,b),ALl(10,10,6),AL3(10,10,6) , 

*  A AS (10, 10,6) , 3YC ( 10 ,10 ,61 ,8  LI ( 10,10,6) , 3L3 ( 1C , 1C, 6 ) , 

*  BAS ( 10, 1 0,6  > 

COMMON/C 10/ IRE AD, IWRITE .IOIAG 
COMMON/CT I ME/TIME 
CCMMON/CXDOT/XD( 1) 

COMMON/CO IFS/JST,XIN»TP 

DATA  RG,NA  ,TE ST2/5 3 .34 , 10 , 0./ 


CALL  SE0UENC5 

*****  input  tables  or  data  arrays  ***** 

A,B,LO  -ARRAYS  OF  AIR  BAG  ELEMENT  DIMENSIONS;  ATTACH 

-POINT  SPACING, ATTACH  POINT  HEIGHT  AND 
-MEMBRANE  CIRCUMFERENCE  RESPECTIVELY,  INCHES 
GA,GB  -ARRAYS  OF  ANGULAR  POSITION  OF  FUSELAGE 

-CONSTRAINTS  ON  MEMBRANE  SHAPE 


XA,YA,ZA  -ARRAYS  OF  COORDINATES  Oe  AIR  BAG  ELEMENT 

-ATTACH  POINT,  INCHES 

D  -ARRAY  Cc  ELEMENT  WIDTH,  INCHES 

S  -ARRAY  OF  ELEMENT  SCALING  FACTORS 

MU  -ARRAY  OF  ELEMENT  COEFFICIENTS  OF  FRICTION 

-IN  X  ANO  Y  AXIS  RESPECTIVELY 


-A R R A y  Or  PARAMETER  SET  NUMBERS  ASSOCIATED 
-WITH  EACH  element 

-array  OF  ORIFICE  AREA  PER  UNIT  AREA 
-(OR  POROSITY)  OF  BAG  SURFACE 


AP 


oooooooooooooonooooonooooooooooooooooooooooooooooooooono 


Table  128:  LISTING  FOR  SUBROUTINE  AB  (CONTINUED) 


LP 

LH 


-ARRAY  OF  CIRCUMFERENTIAL  OISTANCE  FROM  ATTACH 
-POINT  B  TO  BEGINNING  OF  PERFORATIONS ,  INCHES 
-ARRAY  OF  WIDTH  OF  PERFORATED  AREA,  INCHES 


REL 


-RELIEF  VALVE  AREA  OPENING  AS  A  FUNCTION  OF 
-BAG  PRESSURE  ,ONE  OIM. TABLE , SQ . IN  VS  PSIG 


*****  OUTPUTS  ***** 

FXT»PYT»FZT  -X,Y,Z  AXIS , AXIAL, LATERAL  AND  VERTICAL  FORCE 
-SUMMATION  TERMS,  LBS 

TXT, TYT »TZT  -X,Y,Z  AXIS  SUMMATION  TERMS  FOR  ROLL, PITCH, 

-AND  YAW  MOMENTS,  FT-LB. 

PTR,PTRO,IPTR  -RIGHT  AIR  BAG  PRE SSURE , RATE , INT  CONTROL,  PsIA 
PTL.PTLD.IPTL  -LEFT  AIR  BAG  PRESSURE, RATE, INT  CONTROL,  PSIA 
VTR,VTRO» I VTR  -RIGHT  AIR  BAG  VOLUME , RATE , INT  CONTROL,  CU  FT 
VTL,VTLD,IVTL  -LEFT  AIR  BAG  VOLUME , RATE , INT  CONTROL,  CU  FT 
WAR  -RIGHT  AIR  FLOW  RATE, AIR  BAG  TO  ATMOSPHERE,  LB/MI N 

WAL  -LEFT  AIR  FLOW  RATE, AIR  BAG  TO  ATMOSPHERE,  L3/MIN 


*****  INPUTS 
ROL,PIT,YAW 
X,  ALT 
U,V,W 
PA 

vu 

WTR 

TTR 

WTL 

TTL 

NE  (ANE) 

NSET 

CDA 

NPTS 

3ST , WLT 
CD! 

CD2 

8SCG»WLCG 

TAU 


P,Q»R 

AMODE , ANR , DL, 
OMP 

EPC 


***** 

-ROLL, PITCH, YAW  EULER  ANGLES,  DEG 
-X, Z  EARTH  AXIS  POSITIONS 

— X, Y , Z  BOOY  AXIS  LINEAR  VELOCITIES,  FT/SEC 
-AMBIENT  PRESSURE,  PSIA 

-BREAK  POINT  IN  MU-VELOCITY  CURVE,  IN/SEC 

-SUPPLY  RIGHT  AIR  FLOW  RATE  TO  AIR  BAG,  LS/MIN 

-TEMPERATURE  OF  WTR  AIR,  DEGR 

-SUPPLY  LEFT  AIR  FLOW  RATE  TO  AIR  BAG,  LS/MIN 

-TEMPERATURE  OF  WTL  AIR,  DEGR 

-NUMBER  OF  AIR  BAG  ELEMENTS 

-IF  ANE.LT.O  MODEL  IS  SYMMETRIC  ABOUT  ROLL  AXIS 
-NUMBER  OF  ELEMENT  SHAPE  PARAMETER  SETS 

-  DISCHARGE  COEFF.  FOR  FLOW  THROUGH 
-RELIEF  VALVE 

-NO.  OF  ELEMENTS  IN  A  ROW  OR  COLUMN  IN  THE 

-  PARAMETER  SET 

-BODY  STATION  AND  WATER  LINE  OF  AIR  BAG  AXIS,  INCHES 
-ORIFICE  DISCHARGE  COEFFICIENT  FOR  FREE 
-PORTION  OF  AIR  BAG 

-ORIFICE  DISCHARGE  COEFFICIENT  FOR  AIR  BAG  AREA 
-IN  CONTACT  WITH  THE  GROUND 

-BOOY  STATION  AND  WATER  LINE  OF  C.G.,  INCHES 
-TIME  CONSTANT  FOR  AIR  BAG  VOLUME 
-RATE  OF  CHANGE,  SEC 

-X, Y , Z  BODY  AXIS  ANGULAR  VELOCITIES, DEG/SEC 
H-TERRAIN  MOOEL  PARAMETER S, SEE  FUNCTION  TERRA 
-DAMPING  COEFFICIENT  AS  A  FUNCTION  OF 
-FLATTENED  AREA,  LB-SEC/ IN. /SQ  IN. 

-PRINT  CONTROL,  EPC*I.  PRINT  ELEMENT  VARIABLE 
-VALUES  EVERY  PRINT  INTERVAL 


***  CONSTANTS  *** 
RG«53.34 


-GAS  CLHSVANT  FOR  AIR,  FT-L3/LB/DEGR 


WRITTEN  BY  J.R.KILNER 


372 


Table  128:  LISTING  FOR  SUBROUTINE  AB  (CONTINUED) 


INITIAL  CALCULATIONS  ANO  ELEMENT  SECTION  PROPERTY 
PARAMETER  DATA  CALCULATED  AT  TIME=0 
Ic  INPUT  OATA  ARE  UPDATED 


CALL  SECONO(CPT) 

IF  fTIME.NE .0. )GOTO  11 


NSET*ANSET 
NE  *ABS ( ANS ) 
NPTS»ANPTS 
NSET2=5*NSET*3 
TEST*0. 

00  4  I=4,NSET2 
TEST=TEST*ABL(I> 


NE3=NE*3*3 
NE4=nE«4>3 
DO  6  I =4*NE3 
TEST=TEST+XYZ( I >*DSM( I ) 
DO  7  I=4,NE4 
TESTATE ST+IALd) 


IF (TEST .EQ .TEST2) GO  TO  11 
TEST2=TEST 


MS=2 

IF(ANE.LT.C.)MS=1 

CNT=CNTL=CNTF=0. 


DO  10  1=1 »NSET 
15=1*5 

A ( I) =ABL ( 1 5—1 ) 
3(I)=ABLf 15) 

LC (I)=A8L( 15+1 ) 
GA ( I ) =ABL (15*2) 
G3 ( I )=ABL ( 15*3) 
CONTINUE 


DO  20  1=1 » NE 

13=1*3 

14*1*4 

XA  ( I ) =XYZ ( 13*1 ) 
YA ( I )*XYZ ( I3*2) 
ZA (I)*XYZ (13*3) 


D( I )*OSM( 13*1 ) 
S( I)=OSM( 13*2) 
MU ( I ) *OSM (13*3) 


non  on  o  o- 


Table  128:  LISTING  FOR  SUBROUTINE  AB  (CONTINUED) 


Z3 A ( I ) s  WLCG-WLT*ZA*I) 

20  CONTINUE 
C 

xMum«  o. 

XMU»2)«  VU 
XMU(3)>  0. 

XMUC4J*  1. 

C 

c 

WR ITE ( IWR I TGf 60C0 ) 

WRITE* IWR ITS, 6002) ( I,XA ( I ) ,YA* I) , ZA ( I ) ,0< I ) , S «I) , 

*  MU(I),ISm,AP*I),LP*I),LH*I),I=l,NE) 

6000  FORMAT* 1H l, 3AH*****  AIR  SAG  PARAMETER  OAT A  •***,  14*  5M>**** )/ 

*  3X.31H***  FOR  TWIN  SYMMETRIC  SAGS  ***/// 

*  37H  ELEMENT  XA  YA  ZA, 

*  3X,*0  S*, 

*  6X,«  MU  IS  AP  LP  LH*/) 

002  FORMAT* AX, I2,2X,3F10.2,F10.2,2F/».3,I4,F9.5,2F7.1/) 

CALL  IC3(NSET,NPTS,A,8,L0,GA,GB,0MU, 

*  AZ0,AY0,AL1,AL3,AAS,BY0,3H,SL3,3AS) 


II  CONTINUE 

IF*EPC.EQ.l. )C ALL  VPRINB ( 0,1 ,M,MS,NE ,ZGAP ,Z0 , YO , L1,L3 , AS,UTY, 
*  FFX8AR, FFY3 AR,F08AR,FT8AR ,CNT,CNTL,CNTF) 

CNTsCNT+l. 

INITIALIZATION  FOR  LOOP  ITERATION 

FXT  *0. 

FYT  *0. 

FZT  *0. 

TXT  =0. 

TYT  *0  * 

TZT  =0. 

C 

CR=COS* .01745*ROL) 

CP«C0S(.01745*PIT) 

CY«COS* ,0I7A5*YAW) 

SR*SIN( .017a5*ROL) 

SP«SIN*.0I745MPIT) 

SY-SIN* .01745*YAW) 

C 

CPCY»CP*CY 
CRSY«CR*SY 
SRSPCY«SR*SP*CY 
SYSR»$Y*SR 
CYCRSP»CY*CR*SP 
CPSR*C? *SR 
CRCP»CR*CP 
SPSR«$?*SR 
SPCR»S?*CR 
C 

P1«P*.017a5 
01«Q». 017*3 

374 


mm & 


ami 


Table  128:  LISTING  FOR  SUBROUTINE  AB  (CONTINUED) 


R1«R*. 01745 


U1»U*12 

V1*V*12 

W1*W*L2 


C  **  M* 1  RIGHT  AIR  BAG 
C  **  M»2  LEFT  AIR  BAG 
C  **  I*  AIR  BAG  ELEMENT  NUMBER 
C  £»♦!  IF  M=1 

C  E*-l  IF  M*2 


00  31  M»1,MS 
E*l. 

PT*PTR 

IF(M.EQ.1)G0T0  22 
E*-l. 

PT*PTL 


C  **  FS  REFERS  TO  FREE  SHAPE  VALUES 
C  **  SUBSCRIPT  U  INDICATES  UNSCALED  VARIABLE 


ISI*IS(I> 

ZOFSU*AZOCISI> 

ZOFS  *S (I ) *ZOFSU 
YOFS  =S(I ) *AYO ( 1 » I > IS I ) 


XBT»XBA(I) 

YBT»(Y8A(I)+Y0FS)*E 

Z8T*ZBA(I)+Z0FS 


C  DETERMINE  X  AND  Z  POSITION  OF  POINT  T  IN  EARTH  COORDINATES 


XET*X*12.-*’X8T*CPCY«-Y8T*(SRSPCY-CRSY)«-ZBT*(SYSR+CYCRSP> 

ZET*-ALT*12.-X8T*SP+Y8T*CPSR+ZBT*CRCP 


C  DETERMINE  TERRAIN  ELEVATION  AT  POINT  T 


ZEG  »TERRA(XET,AMOOE,ANR,DL»H,ZTR> 


C  CALCULATE  BAG-GROUND  GAP  HEIGHT. 

C  NEGATIVE  GAP  IMPLIES  A  LOAOED  BAG  ELEMENT 


ZGAP«— ZSG— ZET 
ZO*ZOFS*ZGAP 
IF(ZGAP.GT.O.)  GO  TO  44 


C  LOADED  SHAPES 


Table  128:  LISTING  FOR  SUBROUTINE  AB  (CONTINUED) 


CNTL=CNTL*1. 

C 

C  DETERMINE  VELOCITY  OF  POINT  T  RELATIVE  TO  EARTH 
C  WITH  X  AND  Y  COMPONENTS  OR IENTEO  TO  BOOY  AXIS 
C 

Z3T*ZBA(I)*Z0 

C 

XBTO*  ZBT*Q1-Y8T*R1*UI 
Y8  TO=— ZBT*P1+XBT*R 1+V1 
Z8TD=  Y3T*P1-XBT*01+-W1 
C 

XTD2=XBTD*CP»YBTD*SPSR+ZBTD*SPCR 

YTD2*Y3TD*CR-Z8TO*SR 

ZTD*-XBTO*SP+YBTD*CPSR-*-ZBTD*CRCP 

C 

VET»SQRTI XT02*XTD2+YT02*YTD2) 

C 

C  CALCULATE  ELEMENT  FRICTION  COEFFICIENTS 
C 

IF (VET.EQ.O.)GOTO  24 
UT0»MUm*TBLUl(VET,XMU,XMU(3)  ,1  ,-2) 

UTX»UT0*XTD2/VET 
UTY*UT0*YTD2/VET 
GOTO  26 
24  UTX»0. 

UTY *0. 

26  CONTINUE 

C 

C  CALCULATE  ELEMENT  DIMENSIONS  AND  AREAS  FOR  A 
C  LOADED  SHAPE 
C 

ZOU=ZO/SII > 

UT=E*UTY 

IF (UT .LT.O.IGOTO  33 

Y0»Sm*TBL2(UT,ZCU,Z0FSU,AYCtDMU,NPTS,IS(I>  ,NA) 
Ll*S(I)*TBL2(UTtZ0U,Z0FSU,ALl»0MU,NPTSfIS(I),NA) 
L3=Sm*TBL2(UTtZOU,ZOFSU,AL3,OMU,NPTS,IS(I),NA) 
AS=Sm*S(I)*T8L2(UT,Z0U»Z0FSU,AASt0MU,NPTS,IS<I  >,NA> 
GOTO  34 
C 

33  YO«Sm*T8L2(UT,ZOU,ZOFSUtBYO,OMUtNPTS,ISm,NA> 

L1*S( I )*T8L2(UT»Z0U»Z0FSU»BL1 »DMU,NPTS , IS ( I ) , NA  ) 

L3*S ( I )*TBL2( UT»Z0U»Z0FSU»BL3  »DMU,NPTS  »IS ( I )  »NA ) 

AS»S( I >*S  ( I )*TBL2  (UT, ZOU, ZCFSU,8AS ,DMU ,NPTS ,IS ( I ) »NA) 

34  CONTINUE 
C 

C  AIR  BAG  GROUND  REACTION 
C 

AT«0(I)*L3 

FT8AR*(PT-PA)*AT 

C 

C  CALCULATE  FRICTION  FORCES 
C 

FFX8AR«-UTX*FT3AR 

ffybar*-uty»ftbar 

C 


Table  128:  LISTING  FOR  SUBROUTINE  AB  (CONTINUED) 


C  **  CALCULATE  ELEMENT  DAMPING  FORCE 


FOSAR=DMP*AT*ZTD 

C  **  CALCULATE  FORCES  AND  MOMENTS 


FXT«FXT«-FPXBAR 

FYT*FYT-*-PPY8AR 

FZT=FZT-FT3AR-F08AR 

Y3T»IY8A(I)fY0*.5*L3)*E 

TXT*TXT*f -IFTBAR+FOBAR) *YBT-FFY8AR*ZBT  >*.08333 
TYT»TYTH ( FTB AR+FDB AR )*X8T+FFXBAR*Z8T) **08333 
TZT*TZT*IPFYBAR*XBT-FFXBAR*YBD*. 08333 
GO  TO  66 


C  CALCULATE  ELEMENT  DIMENSION  AND  AREAS  FOR  FREE  SHAPE 


CONTINUE 

CNTF»CNTF*1. 

Y0*AYC(1»1»ISI) 

LI*AL1(1,I,ISI» 

L3»0. 

AS -A AS (1*1*151) 
UTY*0. 

FFXBAR=0. 

FFY8AR*0. 

FOB A R*0. 
FT3AR=0. 
CONTINUE 


C  CALCULATE  ELEMENT  VOLUME 


VTS=VTS*0( I )*AS*. 0005787 


IF (AP ( I ) . NE.O . )  CALL  PERFB ( ZGAP, LI , L3, LP( I ) ,LH( I ) 
DID  »  API  I )  fAHl,AH2) 


IFIEPC.EO.l.lCALL  VPRINB I1,I,M»MS»NE »ZGAP  *Z0» YO  »L1»L3  *  AS  »UTY 
FFXBAR»FFY3AR»  FDBAR ,FTBAR»CNT»CNTL»CNTF  > 

CONTINUE 


VTSL*VTS 
AH1L* AHI 
AH2L*AH2 

IF  (M.EQ.2  )  GOTO  32 

VTSR=VTS 

AH1R*AH1 

AH2R*AH2 

CONTINUE 

CONTINUE 


C  **  CALCULATE  FLOW  RATES  »  BAG  VOLUME  RATES  OF  CHANGE  AND 
C  **  3 AG  PRESSURE  RATES  OF  CHANGE 


C  RIGHT  AIR  SAG 


swoon  o  noooo 


Table  128:  LISTING  FOR  SUBROUTINE  AB  (CONCLUDED) 


N«REL ( 2 1 

AREL  *  T3LUl(PTR-PA,REL(4)  ,REL(N+4>  fi.-N> 
CATA»CDl*AHlR+.6667*CD2*AH2R-*-C0A*ARSL 
IF  { IVTR.NE.O)  VTRD* (VTSR-VTR l/TAU 
CALL  FNFLOWIPTR » PA  »  TTR  »  CATA  *1 ,»FN»WAR) 

IF  ( IPTR.N6 .0) PTRO» ( .00013 89*RG*TTR* (WTR-WAR 1-1 ,2*PTR*VTRD1/VTR 
LEFT  AIR  BAG 

**  TEST  FOR  SYMMETRIC  MODEL 
IF (ANE.LT.O.)GOTO  55 
M«REL(2) 

AREL  *  T9LUl(PTL-PA,REL(4>,REL(N-*-4>,l,-N) 
CATA»COl*AMlL-*-.6667*C02*AH2L«-C0A*AREL 
IF  { IVTL.NE  .01  VTLD* (VTSL-VTL l/TAU 
CA LL  FNFLOW ( PTL » PA  »  TTL , C ATA  » l . , FN ♦ WAL 1 

IF l IPTL.NE .0) PTLO* ( . 00013 89*RG*TTL* (WTL-WAL 1-1 .2*PTL*VTLD 1/VTL 
RETURN 

**  SYMMETRIC  MODEL 

5  FXT*2.*FXT 
FYT*0. 

FZT»2.*FZT 
TXT*0 • 

TYT»2.*TYT 
TZT=0 • 

IF (IVTL.NE. 0)VTL0»VTRD 
WA  L=W AR 

IF (IPTL.NE .0) PTL0*PTRD 
C 

RETURN 


Table  129:  LISTING  FOR  SUBROUTINE  AC 


CAC 

SUBROUTINE  AC (CLT »CDT»CMT »CYT  t  CLST »CN3T»CL*  CO » CM tCY»  CL9  »CN8  *AL»  BE ) 
C 

C  VERSION  1.  JUNE  1977 
C 

C  PURPOSE  STANOARO  JlNOIVIK  AERODYNAMIC  DATA  -  REF.  AERO  TECH  MEMO 
C  222.  USED  FOR  TASK  2  TRIM  ANO  DYNAMIC  FLIGHT  CONDITIONS. 

C 

C  METHOD  AERODYNAMIC  COEF  ARE  INTERPOLATED  FROM  TABLES. 

C 

C  CALL  SEQUENCE 
C  *****  TABLES  ***** 

C  CLT  -COEF  OF  LIFT  VS.  ANGLE  OF  ATTACK 

C  COT  -COEF  OF  DRAG  VS.  COEF  OF  LIFT 

C  CMT  -COEF  OF  PITCH  MOMENT  VS.  COEF  OF  LIFT 

C  CYT  -COEF  OF  SIDE  FORCE  VS.  ANGLE  OF  SIDE  SLIP 

C  CLBT  -OERIVITIVE, ROLLING  MOMENT  DUE  TO  SIDE  SLIP  VS  ANGLE  OF  ATTACK 
C  CNBT  -DERIVITIVE » YAWING  MOMENT  OUE  TO  SIOE  SLIP  VS  ANGLE  OF  ATTACK 


c 

***** 

OUTPUTS  ***** 

c 

CL 

-COEF  OF  LIFT 

c 

CO 

-COEF  OF  DRAG  FORCE 

c 

CM 

-COEF  OF  PITCH  MOMENT 

c 

CY 

-COEF  OF  SIOE  FORCE 

c 

CL8 

-ROLL  MOMENT  DERIVITIVE 

c 

CNB 

-YAW  MOMENT  OERIVITIVE 

C 

***** 

INPUTS  ***** 

c 

AL 

-ANGLE  OF  ATTACK 

c 

.BE 

-SIDE  SLIP  ANGLE 

C 

C  WRITTEN  BY  JOHN  MC  AVOY  ANO  MAHINDER  WAHI 
C 

DIMENSION  CLTm,CDT(l),CMT(l),CYT<  l),CLBT(  I),CN3T<  I) 
C**I INTERPOLATE  CL 
NCLT*CLT«2) 

CL*TBLUUAL»CLT(4)  ,CLT(  NCLT+4)  ,  I  ,-NCLT ) 

C**I NTER POL ATE  CD 
NCDT*CDTi2) 

CD=T8LU1(CL»CDT(4)  ,CDT INCDT+4) , 1 ,-NCDT> 

C**I NTERPOLATE  CM 
NCMT*CMTI2 ) 

CM*TBLUICCL»CMT(4) .CMT(NCMT>4) ,i ,-NCMT) 

C**I NTERPOLATE  CY 
NCYT*CYTf  2 ) 

CY*TBLU1( BE  »CYT(4) ,CYT(NCYT*4> ,1 ,-NCYT) 

C**I NTER POL ATE  CL3 
NCLST*CL8T(2> 

CL  3*T3LUl ( AL»  CLBT (4)fCL8TfNCLBT+4).l »— NCL3T) 

C**I NTERPOLATE  CNB 
NCNBTsCNBT (2) 

CN8=TBLU1 ( A  L, CN8T ( 4 )  ,CNBT(NCNBT*4) , I ,-NCN8T ) 

CL«-CL 

CO«-CO 

RETURN 

END 


ooooooooooooonooooonoooonoooo 


1 


Table  130:  LISTING  FOR  SUBROUTINE  AF 


CAF 

SUBROUTINE  Ar ( FO, C00» Cl »C2 , C3 ,C<- ,C5 > 
PURPOSE  -  TO  SIMULATE  ANALYTICAL  FUNCTIONS 


METHOO  -  SEE  COOING 


WRITTEN  BY  -  AOAM  LLOYD  LATEST  REVISION  FEB  76 


LIMITATIONS  -  NONE 


INPUT/OUTPUT  LIST 

FO  OUTPUT  VARIABLE  ANY  OUTPUT  VAR 

COO  CODE  IDENTIFYING  ANALYTICAL  FUNCTION  -  INPUT  PARAM 

CODE*  FO* 

1  C 1*C2*S IN ( C  3*T IME+C4 ) 

2  Cl*C2*C0S(C3*TIME*C4) 

3  C1+C2*EXP(-C5*TIME)*SIN<C3*TIME+CM 

4  C1>C2*EXP( -C5*TIME )*COS (C3*TIME+C4) 

5  CH-C2*TIME 

6  C1«-C2*EXP(-C5*TIME) 


Cl 

CONSTANT 

INPUTS 

FOR 

ABOVE 

EONS 

— 

INPUT 

PARAM 

C2 

CONSTANT 

INPUTS 

FOR 

ABOVE 

EONS 

— 

INPUT 

PARAM 

C3 

CONSTANT 

INPUTS 

FOR 

ABOVE 

EONS 

— 

INPUT 

PARAM 

C4 

CONSTANT 

INPUTS 

FOR 

ABOVE 

EONS 

— 

INPUT 

PARAM 

C5 

CONSTANT 

INPUTS 

FOR 

ABOVE 

EONS 

- — 

INPUT 

PARAM 

COMMON/CTI ME/TIME 
NCOOE *COD 

GO  TO  ( 10, 20, 30 ,40, 50, 60  INCODE 
10  F0*C1+C2*SIN(C3*TIME+C4) 

GO  TO  100 

20  F0*CH-C2*C0S(C3*TIME+C4) 

GO  TO  100 

30  F0=C1+C2*EXP(-C5*TIME)*SIN(C3*TIME+C4) 
GO  TO  100 

40  F0*C1«’C2*EXP(-C5*TIME)*C0S<C3*TIM£*C4> 

GO  TO  100 

50  FO*Cl*C2*TIM6 
GO  TO  100 

60  F0*C1*C2*EXP(-C5*TIME) 

100  RETURN 
END 


380 


Table  131:  LISTING  FOR  SUBROUTINE  AMACH 


camach 

FUNCTION  AMACH(P,T,A,W,SH) 

C 

C  PURPOSE  -  TO  CALCULATE  MACH  NUM8ER  IN  AN  ELEMENT  OF  KNOWN  AREA 
C  WITH  MOIST  AIR 

C 

C 

C  M6TH00  -CALCULATES  F( M >*( W*SQRT ( T)/ ( A*P) ) ‘SORT ( R/ (GAMMA*32.2) > 

C  *M/ ( !•♦ (  GAMMA— 1 • ) *M*M/2 •  )  **( GAMMA* 1. )/2 ,* (GAMMA- 1 . > 

C  F(M)  IS  ONLY  SLIGHTLY  OEPENOENT  ON  THE  RATIO  OF  SPECIFIC 

C  HEATS  (GAMMA).  HENCE  THE  ARRAYS  OF  F(M)  VERSUS  MACH  NUMBER 

C  ASSUME  GAMMAs 1 .4 

C 

C 

C  WRITTEN  SY  -  ADAM  LLOYO  LATEST  REVISION  NOV  75 

C 

C 

C  LIMITATIONS  -  NONE 

C 

C 

C  INPUT/OUTPUT  LIST 
C 


c 

AMACH 

MACH  NUMBER 

— 

OUTPUT 

C 

P 

PRESSURE 

PSIA 

INPUT 

c 

T 

TEMPERATURE 

OEGR 

INPUT 

c 

A 

AREA 

IN2 

INPUT 

c 

W 

FLOW  RATE 

LB/M  IN 

INPUT 

c 

SH 

SPECIFIC  HUMIDITY 

LB/LB 

INPUT 

COMMON/ERMSSS/IFATALflERR 
COMMON/CIO/ IREAD» IWRITE  »IDIAG 


DIMENSION 

AMI (26) t AM2 ( 10 ) 

c 

DATA  ARRAYS 

AM  GIVE  MACH 

NUMBER  AS 

A  FUNCTION 

OF  F(M) 

r 

ARRAY  AMI  - 

INCREMENT 

IN 

FM  =  .02 

c 

ARRAY  AM2  - 

INCREMENT 

IN 

FM  =  .01 

OATA  AMI  / 
1  .000 

♦  .020 

♦  .040 

♦  .060 

♦  .080 

♦  .101 

t 

2  .122 

♦  .143 

♦  .164 

♦  .185 

♦  .  20  6 

♦  .227 

t 

3  .248 

♦  .271 

♦  .296 

♦  .319 

♦  .343 

,.368 

9 

4  .394 

,.421 

♦  .449 

♦  .481 

,.513 

♦  .548 

9 

5  .586 

♦  .632 

/ 

DATA  AM2  / 
1  .632 

♦  .653 

♦  .678 

♦  .705 

♦  .735 

♦  .772 

f 

2  .812 

♦  .875 

♦  1.0 

♦  l.C 

/ 

C  CALCULATE  FLUIO  PROPERTIES 
CPsSHCP (T ♦  $H) 
**(53.3*85.7*SH)/(1.*SH) 
GAMMA*1.*R/(CP*778.-R> 

C  CALCULATE  F ( M ) 

CI*A8S  ( R*T /(GAMMA* 3 2.  2 ) ) 

C 1  *AMAX'l  (Cl,«Ol) 
FM«A9S(W»S30T(C1) >/<60.*A*P> 

C  CALCULATE  MACH  NUMBER 

C  TABLES  00  NOT  PERMIT  EXTRAPOLATION 

IF ( FM.GT.O .5) GO  TO  10 
X1-FM/.02  ♦  1. 

X2  *AMAX 1 (  X 1  ♦  1 .  ) 


Table  131:  LISTING  FOR  SUBROUTINE  AMACH  (CONCLUDED) 


I  =  X2 

I>MAX0CX,1) 

AMACH«(X2-I)*(AMl<I*l)-AMiCI))  ♦  AMICI) 

GO  TO  100 

10  Xl«(FM-.50)/.01  ♦  1. 

X2*AMIN1 t X 1, 10. ) 

I-X2 

I-MIN0CI,9) 

AMACM*CX2~I )*( AM2 ( 1*1 )— AM2C I ) )  ♦  AM2CI) 

IFfXl.LE.10.)GO  TO  100 

WARNING  DIAGNOSTIC  IF  VALID  RANGE  OF  INOEPENOENT  VARIABLE  EXCEEDED 
TEST  FOR  DIAGNOSTIC  PRINT  OUT 
IFCIERR.NE.DGO  TO  100 
WRITE (I WRITE, 9999) 

9999  FORMAT* 10X,33MN0N  FATAL  ERROR  CALLEO  FROM  AMACH/ 

l  10X,45HVARIABLE  EXCEEOS  UPPER  LIMIT  OF  OATA  ARRAY  AM) 

100  RETURN 
ENO 


Table  132:  LISTING  FOR  SUBROUTINE  AP 


CAP 

SUBROUTINE  AP ( ELE » cTA , ETAO, I6TA , PGR »PGRO, IPGR ,X1 ,X10, IX I, 

1  X2,X20,IX2,EL0,GAM,GA0,A1,A2,A3,A4, 

2  A5»A6»A7»A8,PGL»PIT»PITD»GL1,GL2) 

C  SIMULATED  BY  SATURATION  FUNCTION  WITH  06A0  BAND 

C  VERSION  2.  R6VIS60  OCT  3,1977 

C 

C  PURPOSE  SIMULATION  OF  JINDIVIK  AUTOPILOT  FOR  PITCH  CONTROL 
C 

C  METHOD  EQUATIONS  ANO  TRANSFER  FUNCTIONS  SUPPLIED  3Y  AUSTRALIAN  GAF. 

C  AN  APPENDIX-AERODYNAMIC  DERIVITIVES  ANO  AUTOPILOT/SERVO 

C  TRANSFER  FUNCTIONS  FOR  MG  203A  SHORT  SPAN  JINDIVIK  FITTED 

C  WITH  MG  7/B  WING  TIP  FUEL  POOS.  OATE  1973. 

C  PITCH  CONTROL  IS  SIMULATED.  GROUND  BASED  PITCH  CONTROL  IS 

C 

C  CALL  SEQUENCE 
C 

C  *****  OUTPUTS  ***** 

C  ELE  ELEVATOR  ANGLE, DEG 

C  ETA ,ETAO,IeTA  ELEVATOR  SERVO  ANGLE! DEG ), RATE  ANO  INTEGRATION  CONTROL 
C  ELD  ELEVATOR  SERVO  DEMAND  ANGLE (DEG) 

C  PGR, PGRO, IPGR  PITCH  GYRO  REF  ANGLE! DEG  ) ,RATE, INTEGRATION  CONTROL 

C  XI , X1D ,1X1  TRANSFER  FUNCTION  INTERMEDIATE  STATE  PARAMETER 

C  X2 , X2D, 1X2  TRANSFER  FUNCTION  INTERMEDIATE  STATE  PARAMETER 

C  *****  INPUTS  ***** 

C  GAM  VERTICAL  FLIGHT  PATH  ANGLE  IN  DEG 

C  GAD  DEMANOED  FLIGHT  PATH  ANGLE  IN  DEG 

C  A1,A2  POS  AND  NEG  LIMIT  OF  OEAO  8ANO  IN  DEG 

C  A3,A4  POS  AND  NEG  FLIGHT  PATH  ANGLE  FOR  CONTINUOUS  BEEP  IN  C 

C  A5,A6  MAX  AND  MIN  PITCH  GYRO  REFERENCE  ANGLE  RATES  IN  DEG 

C  47, A8  SATURATION  SLOPES 

C  PGL  PITCH  GYRO  REFERENCE  ANGLE  LIMIT 

C  PIT »P ITD  AIRCRAFT  PITCH  ANGLE  ANO  PITCH  ANGLE  RATE 

C  GL1  GAIN  FOR  REF  ANGLE (PITCH)  LIMITS 

C  GL2  GAIN  FOR  INTEGRATION  LIMITS  ON  ELE  SERVO  ANGLE 

C 

C**WRITTEN  9Y  J.J.MCAVOY  ANO  M.K.WAHI  SEPT  1977 

C 

C**PITCH  ATTITUDE  CONTROL 
C***LANO ING  APPROACH  CONDITIONS 
C  PITCH*1.0  DEG. 

C  ENGINE  SPEE0*7000  RPM 

C  OESCENT  RATE*— 2.0  OEG. 

C  PITCH  RATE  DEMAND*2.0  DEG/SEC 

C***LEVEL  FLIGHT  CONDITIONS 
C  PITCH-1.0  OEG 

C  PITCH  RATS  D6MAN0*4.0  OEG/SEC 

C**GROUNO  CONTROL  OF  PITCH  TO  MAINTAIN  VERTICAL  FLIGHT  PATH  ANGLE ( 35e PING ) 
C  **S  A  TUR  ATI  ON  FUNCTION  WITH  DEAD  8AN0  GIVES  PITCH  GYRO  REF  ANGLE  RATE 
C**S ATUR ATION  FUNCTION  SHIFT  FOR  NON  ZERO  VERTICAL  FLIGHT  PATH  ANGLE 
C 

GSc*GAM-GAO 

CALL  SB(PGF,GSr,Al,A2,A3,A4,A5,A6,A7,A8) 

C**I NTEGRATE  WITH  LIMITS  GYRO  PITCH  REFERENCE  ANGLE  RATE 
IF ( IPGR.NS  .0)  PGR0*P3F  ♦  GL1*AMIN1  (0.  .PGL-PGR) 

IF(IPGR.NE.O)PGRO*PGF  ♦  GL1*AMAX1(0., -PGL-PGR) 


383 


Table  132:  LISTING  FOR  SUBROUTINE  AP  (CONCLUDED) 


C**ELEVATCR  OEMANO  FUNCTION 

5L0*O.28*<  PITD-PGRD  )«-0.533*<  PIT-PGR  ) 

^•ELEVATOR  SERVO  FUNCTION  INTEGRATION 
IF (IX l.N6.0>X 1D»191.6*( ELD-ETA) 

IF  ( 1X2 . N6. 0 )X20«X 1*6 I. 3* ( ELD-97. 7*ETA) 

IF(IETA.NE.O)ETAD*X2-V.64»ETA  «■  GL2*AM INI (0. *22. 5— 1 

IF(I6TA.NE.0)ETA0=X2-9.64*6TA  ♦  GL2*AMAX1 <0 . ,-15 

ELE*ETA/1 .5 

RETURN 

ENO 
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Table  133:  LISTING  FOR  SUBROUTINE  AR 


CAR 

SUBROUTINE  AR UIL.ZET, ZETO, I ZST, RGR ,RGRD, IRGR  »R1  ,R1D, IR1, 

1  R2,R2D,IR2,X1,X10, IX 1 , X2 , X2D, I X2 ,A ID» AZI ,CRS , OC ,RUL , ROLD , R , 

2  GL1.GL2) 

C  VERSION  2.  REVISEO  OCT  3,1977 

C 

C  PURPOSE  SIMULATION  OF  JINDIVIK  AUTOPILOT  FOR  ROLL  CONTROL 
C 

C  METHOO  EQUATIONS  AND  TRANSFER  FUNCTIONS  SUPPLIED  BY  AUSTRALIAN  GAF. 

C  AN  APPENDIX-AERODYNAMIC  DERIVITIVES  AND  AUTOPILOT/SERVO 

C  TRANSFER  FUNCTIONS  FOR  MK  203A  SHORT  SPAN  JINOIVIK  FITTED 

C  WITH  MK  7/8  WING  TIP  FUEL  PODS.  DATE  19T3 

C  CALL  SEQUENCE 
C  *****  OUTPUTS  ***** 

C  AIL  AILERON  DEFLECTION r  DEG 

C  ZET  ,ZETD,IZET  AILERON  SERVO  OEFLECTION (DEG) , RATE .INTEGRATION  CONTROL 
C  RGR, SGRD, IRGR  ROLL  GYRO  REFERENCE  ANGLEf DEG ) .RATE, INTEGRATION  CONTRC 

C  AID  AILERON  SERVO  DEMAND  ANGLE ( OEG)  FROM  AUTOPILOT 

C  R1 , RID » I R1  SERVO  MOTOR  P AR AME TER , RA TE , INT  CONTROL 

C  R2,R20,IR2  SERVO  MOTOR  PARAMETER .RATE , INT  CONTROL 

C  X 1 , XIO , I XI  SERVO  MOTOR  INTERMEDIATE  STATE , RATE , I  NT  CONTROL 

C  X2,X2D,IX2  SERVO  MOTOR  INTERMEDIATE  STATE, RATE, INT  CONTROL 

C  *****  INPUTS  ***** 

C  AZI  AIRCRAFT  AZIMUTH(+  CLOCKWISE , DEG ) 

C  CRS  DEMANDEO  AIRCRAFT  COURSES  CLOCKWI SE , DEG) 

C  OC  ALLOWABLE  COURSE  ERROR (•*— OEG) 

C  RCL  AIRCRAFT  ROLL  ANGLE ( DEG) 

C  ROLO  AIRCRAFT  ROLL  ANGLE  RATE (DEG/SEC > 

C  R  AIRCRAFT  YAW  RATE,  DEG/SEC 

C  GLl  GAIN  FOR  GYRO  REF  ANGLE  LIMITS 

C  GL2  GAIN  FOR  INTEGRATION  LIMITS  ON  AILERON  SERVO  ANGLE 

C 

C  WRITTEN  BY  J.J.MCAVOY  AND  M.K.WAHI  SEPT  1977 

C*»AIRCRAFT  COURSE  CONTROL  BY  GROUND  COMMANOS. 

C***GROUND  CONTROL  COMMAND  LEFT  OR  RIGHT  TURN  WHICH  CAUSES  ROLL  GYRO  REF 
C  ANGLE  TO  ROTATE  AT  10  DEG/SEC,  GYRO  REF  ANGLE  IS  LIMITED  TO  ♦  30  DEG. 

C  STRAIGHT  COMMAND  CAUSES  GYRO  REF  ANGLE  TO  DEROTATE  AT  10  DEG/SEC 

C  UNTIL  REP  ANGLE  IS  ZERO. 

TRGRD=0 .0 

IF(AZI.GT. CRS ♦DC )  TRGRD=-10.0 
IF(AZI.LT.CRS-OC)  TRGRD=10.0 
IF(AZI.LT.OC.AND.RGR.LT.O.O)  TRGRD=10.0 
IFCAZI.GT.-0C.AN0.RGR.GT.0.0)TRGRD=-10.0 
IF(IRGR.NE.O) RGRD=TRGRD  +  GL1PAMIN1 (0. ,30. -RGR ) 

IF  ( IRGR  .NE  .0)  RGRO  =  TRGRO  ♦  GL1*AMAX1  (  0.  ,—30. -RGR) 

C**AUTOPILOT  AILERON  DEMAND  FUNCTION 
Ie(IRl.NE.O)RlD=R 
IF(IR2.NE.0)R2D=R1 

A I  0=  .196*  (  ROLD— RGRO  )+■  .42*  (ROL-RGR )  *0.2  *R  ♦0.35  *R1  ♦0.0092*R2 
C»*AIL£9ON  SE^VO  FUNCTION  INTEGRATION 
IF (  IX1.NE  .0)X1D=191.6*< AID-ZET) 

IF(IX2.NE.0)X2D=X1+61.3*( AI0-97.7*ZET) 

I F ( IZET  .NE.O)  ZETD*X2— 9 .6A.*ZET  «■  GL2*AM INI ( 0. , 24. -ZET) 
TF(IZET.N6.0)ZETDaX2-9.{»4*ZET  GL2*AMAX1  (0  .,-24. -ZET) 

AIL  =  ZET/3 . 

RETURN 
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Table  134:  LISTING  FOR  SUBROUTINE  AS 

CAS 

SUBROUTINE  AS(ET, 

L  FX, FY, FZ,TX, TV, TZ,GLR, GIRO, IGIR ,G2R ,G2RO, IG2R , GIL, GILO, IG1L, 

2  G2L,G2LD,IG2L,TR ,TL,CIL,THL, 

3  RQL»PIT,YAW,X,Y,ALT»XO»YD» 

4  8SCG,WLCG,BSH,WLH,ALH,YS,YM,HC,EC,ONC,AC,CSI, 

5  DNT,THK,WDT,TPO,RO,AOR,DMP,VO> 

VERSION  1-  MAY  1978 

PURPOSE  -  MOOEL  THE  DYNAMIC  RESPONSE  OF  A  WATER  TWISTER  TYPE  OF 

-  ARRESTING  SYSTEM  COMPOSED  OF  A  STEEL  CABLE  PENDANT, 

-  NYLON  TAPE  AND  WATER  TWISTER  ENERGY  ABSORBER. 

METHOD  -  SEE  ARRESTING  SYSTEM  MODEL  DOCUMENTATION,  VOL  I,  FINAL  RcPOR' 

DIMENSION  ET( 23 ) ,EUL(3,3) 

REAL  LH2, INTT 

COMMON/CTIME/TIME/CIO/IREAO ,IWRITE,IDIAG 
COMMON/COVPLY/INST 
DATA  TEST2 , ZBG/0. , 10./ 

CALL  SEQUENCE 

****  INPUT  TABLES  **** 


ET  -TAPE  STRESS  AS  A  FUNCTION  OF  STRAIN 

-ONE  DIM.  TABLE,  LBS/SQ  IN  VS  IN/IN 

****  OUTPUTS  **** 


FX  ,pY ,FZ 
TX ,TY , TZ 
G1 R*G1RD* IGIR 
G2R ,G2RD, IG2R 
GIL, GILD, IGIL 
G2L,G2LD, IG2L 


-HOOK  FORCES  APPLIED  AT  VEHICLE  CG ,  BODY  AXIS, 
-HOOK  MOMENTS  APPLIED  AT  VEHICLE  CG,  300Y  AXIS, 
-RIGHT  TAPE  DRUM  ANGULAR  DI SP ,R ATE , INT  CONTROL, 

-RIGHT  TAPE  DRUM  ANGULAR  VEL  , RATE, INT  CONTROL, 

-LEF-T  TAPE  ORUM  ANGULAR  DI  SP  , RATE  ,  INT  CONTROL, 

-LEFT  TAPE  DRUM  ANGULAR  VEL  , RATE, INT  CONTROL, 


LBS 

FT-LBS 
RAD. 
RAO/S E 
RAO 

RAD/S  E 


TR,TL 

CIL 

THL 


-RIGHT  AND  LEFT  CABLE/TAPE  TENSION,  LBS 
-HOOK  TO  CABLE  IMPACT  LOAD,  LBS 
-TOTAL  LOAD  APPLIEO  TO  HOOK,  LBS 


****  INPUTS  **** 


ROL»PIT ,YAW 
X, Y,ALT 
XD  ,Y0 
3SCG, WLCG 
BSH,WLH 
ALH 


-ROLL, PITCH, YAW  EULER  ANGLES,  OEG 
-VEHICLE  CG  POSITON  IN  EARTH  AXIS,  FT 
-VEHICLE  CG  VELOCITY  IN  EARTH  AXIS,  FT/ScC 
-VEHICLE  CG  800Y  STATION  AND  WATER  LINE,  INCHES 
-HOOK  PIVOT  BODY  STATION  AND  WATER  LINE,  INCHES 
-HOOK  ARM  LENGTH,  INCHES 


YS 

YM 


HC 


-RUNWAY  SPAN  BETWEEN  SHEAVES,  FT 
-TAPE  DRUM  TO  SHEAVE  DISTANCE,  FT 
-(NOTE,  YM.GT •  5  PERCENT  YS  > 

-INITIAL  CABLE  HEIGHT  ABOVE  RUNWAY,  FT 
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Table  134:  LISTING  FOR  SUBROUTINE  AS  (CONTINUED) 


EC  -cable  mooulus  of  elasticity,  lbs/  so  in 

DNC  -CABLE  WEIGHT  DENSITY,  L3S/CU  IN 

AC  -CABLE  CROSS  SECTIONAL  AREA,  SO  IN 

CSI  -INITIAL  CABLE  STRESS,  LBS/SQ  IN 

-USED  ONLY  FOR  KINK  WAVE  ANGLE  CALCULATION 

ONT  -TAPE  WEIGHT  OENSITY,  LBS/CU  IN 

THK  -TAPE  THICKNESS,  INCHES 

WOT  —TAPE*  WIOTH,  INCHES 

TPO  -MAXIMUM  TAPE  PAYOUT,  FT 

RO  -OUTSIDE  TAPE  DRUM  RAOIUS,  IN 

AOR  -DRUM  INERTIA,  L3S-SQ  IN 

-(INCLUDE  ALL  ROTATING  MASS  EXCEPT  TAPE) 

OMP  -WATER  TWISTER  V-SQ  DAMPING  COEFFICIENT, 

-IN-LBS/ ( RAO/SEC >**2 

VO  -VEHICLE  SPEED  DURING  INITIAL  CABLE  PICKUP,  FT/SEC 

-USED  FOR  KINK  WAVE  ANGLE  CALCULATION  ONLY 

WRITTEN  BY  J.R.KILNER 


****  INITIAL  CONDITION  CALCULATIONS  **** 

IF(TIMS.NE.O.)GOTO  11 

TEST* VO *B  SCG*WLCG-*3SH+WLH+ALH+EC+0NC*AC+CSI*DNT 

*  ♦THK*-WOT>TPO+RO 
IF(TEST,EO.TEST2) GOTO  11 
TSST2*TEST 

C 

CALL  KINK ( VO ,CS I, EC ,ONC, PKW,C  »CSTR ) 

C 

IT*0 

IM*0 

PKW0EG*PKW*57,3 

R I 2*RO*RO-3 .3 1 97*TPO*THK 

IF(RI2.LT.0.)RI2*0. 

RI*SORT(RI2) 

3H*(BSH-9SCG)/12. 

hh*(WLCG-WLH)/12. 

LH2*ALH/12. 

INTT*i.57O0*ONT*WDT 

TR0*.1592*THK/R0 

APG«.373*AC*DNC 

RRbRO 

RL*RO 

0 

AORX* AOR* .001 
ECX*EC*l.E-6 
NT  *6T ( 2 ) 
r 

WRITE! IWR ITS, 6000) 

6000  FORMAT ( 1H 1 »35h*****  ARRESTING  SYSTEM  CONSTANTS  **, 16 ( «H*»*** ) // ) 
WR  IT  =  ( IWR I TE  ,  60C 1 )  3SH ,  YS ,  AC  ,  TPO  ,  DMP  ,  WLh ,  YM  , ONC  ,  DNT ,  AORX , 

*  ALH,HC ,£CX,THK,RO,CSI,WDT,RI 

oOOl  FORMA  T(7X,*H00K*,  1<*X,*FISL0*,13X,*CA8LE*»19X,*TAPE*,18X, 

*  *ARRE$TOR*//7X,*BSH**,F5.1,*  IN*,6.X,*YS  »*,F5.i,*  FT*,6X, 

*  *AC  **,F5.3,«  S3  IN*,9X,*TP0**, F5\0,*  FT*, 10X,*0MP**,P6 .2, 


Table  134:  LISTING  FOR  SUBROUTINE  AS  (CONTINUED) 


*  I6H  IN-L9S/(R/S)**2/7X,*WLH=*,P5.1,*  IN*,6X,*YM  »*,P5.1,*  FT*, 

*  6X,*DNC=*,F5.3»*  LBS/CU  IN*,5X,*DNT=*,F5.3,*  LBS/CU  IN  IDR=* » 

*  F6.1 , 12HE3  LBS-IN**2/7X,*LH  =*,F5.l,*  IN*,6X,*HC  =*,F5.2,*  FT*, 

*  6X,*EC  **,P5.2,*E6  LBS/SQ  IN  THK»*,F5.3,*  IN*,10X,*R0  =*, 

*  F6.2 ,*  IN*/43X,*IC$»*,F5.0,*  LBS/SO  IN*, 5X ,*WOT=*, F5 .2 ,*  IN*, 

*  1 OX , *R I  »*,F6.2,*  IN*/) 

WRITS  1 1  WRITE, 6003) !ET! 1*3) ,1*1, NT) 

6003  F0RMAT(7X,*TA PE  ELASTICITY*//7X , *STRAI N  **,I0F3.3) 

WRITE! IWRITE, 6004) !ET ( I*3*NT ) ,1*1, NT ) 

6004  FORMAT (7X  »*STRE$S  **,10F8.0) 

WRITE ( IWR ITE ,6005 )V0,PKW0EG 

6005  FORMAT! /7X,*V0  =*,F6.I,*  FT/SEC*//7X,*KINK  WAVE  ANGLE  **,F5.l///) 
IF !RI2.EO.O.) WRITE! IWR ITS, 6002) 

6002  FORMAT !4X,21H*****  WARNING  *****  , *TQTAL  TAPE  PAYOUT  CANNOT*, 

*  *  BE  STORED  ON  DRUM  AS  DEFINED*///) 

WRITE! IWRITE, 6007) 

6007  FORMAT! IX, 23! 5H*****)///) 

C 

II  CONTINUE 

C 

C 

FX=FY=F2*TX=TY=TZ=0. 

tr=tl=cil=thl=o. 

AR=AL=0. 

C 

C  HOOK  MISSEO  CABLE  IF  IM=1 

r 

IFdM.EQ.l  )GOTO  88 
C 

C  BODY— TO— EARTH  TRANSFORMATION  COEFFICIENTS 
C 

CR=COS ( «01745*ROL ) 

CP=COS ( . 01745 *PIT) 

CY=COS! ,01745*YAW) 

SR=SIN! .01745*ROL) 

SP-SIN ( .01745*PIT) 

SY*SIN ( .01745*YAW) 

C 

EULll, I)=CP*CY 
EUL! 2 , I )=CP*SY 
EUL!3,l)=-SP 
EUL ( 1 ,2 )=SR*SP*CY-CR*SY 
EUL ( 2 ,2 )=SR*SP*SY  +CR*CY 
EUL (3 ,2 )=SR*CP 
EUL( 1,3)=CR*SP*CY*SR*SY 
EUL! 2 , 3)=CR*SP*SY-SR*CY 
EUL13 »3)=CR*CP 
C 

C  DETERMINE  =>OSTTICN  OF  POINT  H  IN  EARTH  AXIS 
C 

XEH*X-9H*EUL( l,l)fHH*EUL! 1,3) 

YEHsY 

Z  EHa-A  LT-BH*EUL  1 3 , 1  )«-HH*EUL  (3,3) 

C 

C  NO  CABLE  HOOKUP  IF  XEH.LT.O 
r 
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Table  134:  LISTING  FOR  SUBROUTINE  AS  (CONTINUED) 


IF (X6H.LT . 0. IGOTO  38 
C 

C  06T6RHINE  POSITION  OF  POINT  H  IN  H00K-CA3L6  AXIS 
C 

ZL*-ZEH-HC 

XCH»SQRT( ZL*ZL*XSH*X6H> 

SINC*  ZL/XCH 
COSC*XEH/XCH 
YCH-YEH 
C 

C  DETERMINE  ANGLE  OELTA 
C 

A8»XEH*SY/CY<- (ZL/CP-SP*IZL*SP/CP-*X6H/CY) ) *SR/EUL ( 2, 2 ) 

GG2»XCH*XCH-»-AB*A8 

GG»$QRT (GG2) 

SI NO*  AB/GG 
COSO*XCH/GG 
C 

C  OETERMINE  POSITION  OF  POINT  P  IN  HOOK-CABLE  AXIS 
C 

XCP*XCH-LH2*C0SD 

YCP*YCH-LH2*$IND 

C 

C  TEST  FOR  CONDITION  WHERE  HOOK  PASSES  OVER  CABLE 
C  AND  FAILS  TO  HOOKUP 
C 

IF ( IT.EQ. I (GOTO  22 
IT  *1 

YR».5*YS-YCP 
YL=.5*Y$*YCP 
IF(XCP.LE.O.)GOTO  22 
IM*1 

0* I2.*XCP 

WRITE( IWR ITS  » 6006 )D»TIME»XEH 

6006  FORMAT (////IX, Il( 6H******) //3X ,28H****  WARNING  ♦  ***  HOOK  HAS 

*  16HMISSED  CABLE  BY  ,F5.2il3H  INCHES  ****//24X, *T=«,F5 .3 »4X, 

*  «XEH«*,F5.3,*  FT*//1X  »  II  (  6H******)  ////) 

GOTO  88 

C 

C  HOOK-CABLE  ENGAGEMENT 
C  OETERMINE  TAPE  PAYOUT 
C 

22  AYR»SQRTI ( .5*VS-YCP )*( .5*YS-YCP» ♦XCP*XCP ) 

AYL»SQRTI ( .5*YS>YCP)*(.5*YS*YCP)^XCP*XCP) 

CPR*(.5*YS-YCP)/AYR 
CPL*( .5»YS*YCP>/AYL 
SPR«XC?/AYR 
SPL*XCP/AYL 
PR*ACOS(CPR> 

PL*ACOS(CPL) 

C 

IF (PKW »GT «PR ) GOTO  24 

AR«AYR-YR 

GOTO  26 

24  SPR»SIN(PKW) 

CPR«COS(PKW) 
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Table  134:  LISTING  FOR  SUBROUTINE  AS  (CONTINUED) 


ARa(l.-CPR  >*XCP/SPR+.5*YS-YCP-YR 
C 

2 6  I*(PKW.GT.PLJGOTO  28 

AL«AYL-YL 
GOTO  30 

28  SPL*SIN(PKW) 

CPLaCOS(PKW) 

AL=  ( 1 CPL )*XCP/SPL>»  5*YS ♦YCP— YL 
C 

C  DETERMINE  UNSTRAINED  TAPE  PAYOUT 
C 

30  ARUa.08333*R0*GlR*( I.-. 5*TR0*GIR ) 

ALU*. 0833 3*R0*G1L*( 1.-.5*TR0*G1L ) 

RRaRO*( I.-TR0*G1R> 

RL*RO*( l.— TR0*G1L ) 

c 

C  DETERMINE  TAPS  STRAIN  ANO  TAPE/CABLE  TENSILE  LOAD 
C 

UR=( AR-ARU )/( ARU*YM ) 

UL=(AL-AlU)/<ALU>YM) 

TR=W0T*TV»K*TBLU1(UR,ET(4)  ,ET(NT*4),1,-NT> 
TLaW0T*THK*T8LUl(UL,ET<4) ,ET(NT*4) ,1,-NT) 

C 

C  DETERMINE  HOOK-CABLE  IMPACT  LOAO 
C 

IF(PR.G£.PKW.AND.PL.GS.PKW)GOTO  40 
VS=XD*XO«-YD*YD 
AV=YO/XO 
C 

PR=PL=0. 

IF(PKW.GT.PR)FR=APG*VS*COS(PKW-AV)/SPR 
IF (PKW.GT.PL)FL=APG*VS*COS(PKW*AV)/SPL 

cil=fr*.«=l 

c 

C  DETERMINE  HOOK  ANGLE  RELATIVE  TO  BODY  X  AXIS 

C 

40  XEGaXEH+ZBGaEUL ( l »  3  > 

YEG=YEH»ZBG*EUL (2,3) 

Z5G=Z£H*ZBG*EUL(3,3> 

C 

FF2*XEG*XEGM  YEG-YEH+AB )*(YEG-YEH*AB )♦ (ZEG*HC )*( ZEG+HC ) 
EEaZBG 

COSH* ( EE*E E+GG2-FF  2 )/ ( 2 .*gE*GG) 

SINHaSQRT ( I.-COSH*COSH) 

C 

C  CALCULATE  HOOK  COMPONENT  FORCES  IN  HOOK-CABLS  AXIS 
C 

PCX=-TRas?R-TL*SPL-CIL 
FCY*  TR*C  PR— TL*CP  L-CI L*AV 
THL=SORT( PCX*FCX  +FCY*FCY ) 

C 

C  DETERMINE  300 Y  FORCES  AND  MOMENTS  AT  VEHICLE  CG 
C 

FXEPa  FCX*COSC 
FYEP*  FCY 
FZEPa-ecxasiNC 
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Table  134:  LISTING  FOR  SUBROUTINE  AS  (CONCLUDED) 


FX«FXEP*EUL( l » l ) *FY EP*EUL ( 2  » 1 > *F ZEP*  EUL ( 3 ♦ 1 ) 
FY«FXEP*EUL(1 ,2)*FYEP*EUL(2'2)+FZEP*EUL(3.2> 
FZ.FXE  P*SUL ( 1 , 3 ) »FY  EP*EUL 1 2  »  3 ) *P  ZEP*EUL( 3 » 3 ) 


BP»BH«-LH2*SINH 

HP»HM>LH2*COSH 

TX«-HP*FY 

TY«MP*FX+BP*FZ 

TZ—8P*FY 


C  CALCULATE  DRUM  DISPLACEMENT  AND  VELOCITY  RATES 


RI4«RI**4 
ORR4«RR**4-RI4 
0RL4-RL**4-RI4 
VI R«386«/ ( INTT*ORR4>ADR ) 
VIL»386./( INTT4DRL4+ADR) 


IF(IG1R.NE.0)GIRD*G2R 

IF(IG2R.NE.O)G2RO»VIR*<-OMP*G2R*A8S(G2R>+RR*TR> 

IF(IG1L.NE,0)GIL0«G2L 

IF ( IG2L.NE .0) G2LD» VIL*(-DMP*G2L*A8S ( G2L)  «-RL*TL ) 


RETURN 

ENO 
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Table  135:  LISTING  FOR  SUBROUTINE  CLRNCE 


CCLRNCE 

SUBROUTINE  CLRNCE 

CALCULATION  OF  TRUNK  GROUNO  CLEARANCE  FOR  EACH  SEGMENT 

COMMON/ ARE AV/S,AATFN,APLAT,APLCH,APLTK,ATKAT,ATKCH,AGAP,ATK,ACH, 

1  ATKCN » APRV» VCH» VTKtVPLM* VCHOtVFAN* ATKATC  » ATKCHC 
COMMON/STATE/PPLM,PCH,PTK,SINKRT,YCG,DPHI,DTHETA,TH£TAE,PHIE,SIE 
1  ,  XV*VV»QFANX 

COMMON/SP  AC E/N , M ,  8  ETA  , DEL X .  XC X  ( 1 00 )  ,  ZC X ( 1 00 )  ,  XG  (  100 )  ,  YG  ( 1 00 )  , 
lZGHOO)  ,SL4(100) ,YGH{100) ,ISEG<100), ITYP(lCO),OELTA(lCO),XCHl (100) 
ZtZCHI(lOO) *XCG 

COMMON/FLAGS/ 1 CLN » IDIF , IFLAG, ISTAT, I PP  »IPRV,MM  ,NSTOP 
C 

ICLNS=ICLN 

COSCOS*COS ( PHIE  )*COS ( THETA E ) 

C  CALCULATE  SEGMENT  GAP 
00  16  1*1 »NSTOP 
YGH(  I ) *SL4 ( I )  **YG(  I )*COSCCS 
C  IF  NEGATIVE  SET  GAP  TO  ZERO 
YGH(I)*AMAXl(YGH(I) ,0.0) 

C  TEST  FOR  HARD  SURFACE  CONTACT  ON  SEGMENT 
C  IF  ANY  SEGMENT  CONTACTS  HARO  SURFACE  WRITE  ERROR  ONCE 
IF (YGH( I) .LE.O.O.ANO. ICLN.EQ.O)  WRITE< 6,9001) 

9001  F0RMAT(5X ,*  HARO  SURFACE  CONTACT  THIS  STEP  *) 

IF  (YGH(  D.LE.O.O)  ICLN*ICLN+1 
16  CONTINUE 

ICLN*ICLNS 

RETURN 

ENO 
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Table  136:  LISTING  FOR  SUBROUTINE  COVCHP 


COVCHP 

SUBROUTINE  COVCHP 
C  SUBROUTINE  TO  CALCULATE  OVCHP 

COMMON/DYNAMIC/TIME *FTIMEtOTIMEtIQ,NQ,DVCH,DVTK,VELX,OERY( 13) 
ItOVCHP 

COMMON/GEOMET/AtB,HYI,L»D»LS»LP»SH,NH, AH»NR,PHIl,PHI2.Rl,R2tLl»L2, 

1A1  ,A2,X1,X2,HY 

COMMON/ ST ATE/PPLN*PCH»  PTK tSINKRT  »YCG»OPHI »OTHETA  »THETAE  »PHIE»  SI E 
1  »XV*VV*QFANX 

COMMON/ ARE AV/S , AATFN, APLAT, APLCH , APLTK »ATKAT» ATKCH, AGAP  t ATK  , ACH , 

1  ATKCN . APR V, VCH , VTK , VPLM , VCHO  » VF AN , ATK  ATC , A  TKCHC 

VC ueCaVCH 

PR AT« ( PCH*- ( PTK-PCH ) *0. 1 ) /PTK 
CALL  HYCURV  ( PRAT » HX) 

HY«HYI*HX 

CALL  TRUNK  (ISHAPE) 

CALL  SEGMNT(l) 

CALL  COORON 
CALL  PROFILE 
CALL  CLRNCE 
CALL  SHAPE2 

OVCHP»!VCHSS-VCHJ/( (PCH/PTK )-PRAT) 

RETURN 

ENO 
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Table  137:  LISTING  FOR  SUBROUTINE  COORDN 


CCOORDN 

SUBROUTINE  COCRDN 

THIS  SUBROUTINE  CALCULATES  X  AND  Z  COORDINATES  OF  THE  GROUND 
POINT  CORRESPONDING  TO  EACH  SEGMENT,  FOR  A  PARTICULAR  ACLS 
ORIENTATION 

REAL  L,LlfL2,LS,LP,MASS 

COMMON/VE HCL/MASS, A IX  ,AIZ ,AIXY,A IYZ , AI ZX , CC ,GG, FF, AlF AN 
COMMON/SP ACE/N,M, BETA, DELX,XCX( ICC ) ,ZCX( ICO), XG( ICO ) , YG( 100 ) , 

IZG  (100)  ,SLMLOO) » YGH(  100) ,ISEG<  100 ) , ITYP( 100 ) , DELTA ( 100 > ,XCHI < 1 00) 
2 ,ZCHI ( 100 ) , XCG 

COMMON/STATE/PPLM,PCH,PTK,SINKRT,YCG, DPMI, D THETA. THETAE,PHIE, SI E 
1  ,XV,VV,OFANX 

COMMOn/BTERM/811, 31 2, 913,921,322 ,823,331,932,332 
COMMON/FLAGS/ ICLN,  I  DIF,  IFLAG,  ISTAT,  I  P«>,IPRV, MM, NSTOP 

CALL  8MATRIX  FOR  SPACIAL  TRANSFORMATION 
CALL  ROTATE 

DO  LOOP  OF  ALL  SEGMENTS  TO  GROUND  POSITION 
DO  10  1*1, NSTOP 
XCXCC*(XCX(I)-CC) 

ZCXFF* ( ZCX ( I ) — FF ) 

CALCULATE  VECTOR  DA  FOR  SEGMENT 

SLM  I )  ={YCG+XCXCC*9 12+ZCXFF*832>  /322-GG 
SL4GG=(SLMI)«-GG> 

CALCULATE  X-GROUNO  COORDINATE 

XG  ( I )  *XCXCC*8 11-SL4GG*92  l-*-ZCXFF*B31*XCG 

CALCULATE  Z-GROUNO  COORDINATE 

ZG(I)=XCXCC*913— SL4GG*B23+ZCXFF»B33 
10  CONTINUE 
RETURN 
ENO 
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Table  138:  LISTING  FOR  SUBROUTINE  DL 


COL 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  DL < FY, VD,TX ,TZ ,CYB ,CYBD,CYP ,CYR ,CYDR ,CYDA,KCY , 

1  CYTR,CYFS,KCYGE,KCYB,KCYBR,CLB,CLBO,CLP,CLR,CLOR,CLDA,KCL, 

2  CLTR,CLFS,KCLGE,KCLB ,KCLBR,CNB,CNBD,CNP,CNR,CNOR,CNDA, 

3  CNTR,CMFS,KCNGE,KCN8,KCNBR,RU0,AIL,FSP,UD,WD,FYIN,TXIN, 

4  TZIN, AMASS,B,XAC, DIM, CAS,SAS,U, V,W,P, R, BETA, EV, VBAR,QBAR,RW> 
REAL  KCY,KCYGE,KCYB,KCYBR,KCL,KCLGE,KCLB,KCLBR,KCNGE,KCNB,KCNBR 
REAL  KCN 

VERSION  3.  AUG  18  1977 

PURPOSE  COMPUTE  LATERAL— 01 RECTI ON AL  FORCES  ANO  MOMENTS 
MEHTOO  USE  LINEAR  STABILITY  DERIVATIVES  TO  COMPUTE  SIDE 
FORCE,  Y  AXIS  ACCEL**  ANO  ROLL  ANO  YAM  MOMENTS. 

TRASFORM  TO  BOOY  AXES  ANO  ADD  IN  EXTERNAL  FORCES *T0RQU6 S 
CALL  SEQUENCE 
******  OUTPUTS  ****** 


FY  -Y  BOOY  AXIS  FORCE  SUM,  LBS 

VO  -Y  BOOY  AXIS  ACCELERATION,  FT/SEC**2 

TX ,TZ  -X,Z  BOOY  AXIS  (ROLL, YAW)  MOMENTS,  FT -LBS 

******  INPUTS  ******* 

AERO-OERIVATIVES -  UNITS  FOR  DIMENSIONAL  CASE 

SIDE  FORCE  COEFFICIENTS 

CY8»CYB0  -BETA  ANO  BETA  DOT  COEFFICIENTS  (NONOIM.) 

-V  ANO  VD  COEFFICIENTS  ( 0 IM. ), LB-SEC/FT , 
-LB-$EC**2/FT 


CYP,CYR,CYDR,CYOA  -ROLL  RATE, YAW  RATE, RUDOER  ANO  AILERON 

-COEFFICIENTS,  LB-SEC/DEG,  LB-SEC/OEG, 

-LB/DEG,  LB/DEG 

KCY  -AEROELASTIC  EFFECTS  COEFFICIENT  (MACH, ALT) 

CYTR  -TAKEOFF  OR  RECOVERY  TRUNK  COE  FFI Cl  ENT (NONOIM  ) 

-V  COEFFICIENT  ( DIM.  ), LB-SEC/FT 
CYFS  -FLIGHT  SPOILER  COEFFIC I ENT »L3/0EG 

KCYGE  -GROUNO  EFFECT  FACTOR  ON  CYB 

KCYB  -LARGE  SIOE  SLIP  ANGLE  FACTOR  FOR  CYB 

KCYBR  -SIDE  FORCE  RUOOER  EFFECTIVENESS  PARAMETER  FOR 

-URGE  SIDE  SLIP  ANGLES 
ROLLING  MOMENT  COEFFICIENTS 

CLB,CL80  -BETA  ANO  BETA  DOT  COEFFICIENTS  (NONOIM.) 

-V  ANO  VO  COEFFICIENTS(OIM), LB-SEC,  LB-SEC**2 
CLP,CLR»CLDR,CLOA  -ROLL  RATE, YAW  RATE, RUOOER  ANO  AILERON 

-COEFFICIENTS,  FT-LB-SEC/OEG,  FT-L3-SEC/0EG , 
-FT -LB/OEG,  FT-LB/OEG 

KCL  -AEROELASTIC  EFFECTS  COEFFICIENT  (MASH, ALT) 

CLTR  -TAKEOFF/RECOVERY  TRUNK  COEFFICIENT(NONOIM.  ) 

-V  COEFFICIENT  (DIM.),  LB-SEC 
CLFS  -FLIGHT  SPOILER  COEcFICIENT,  FT-L3/DEG 

KCLGE  -GROUND  EFFECT  FACTOR  ON  CLB 

KCL3  -LARGE  SIDS  SLIP  ANGLE  FACTOR  FOR  CLB 

KCL3R  -RUOOER  EFFECTIVENESS  PARAMETER  FOR  LARGE 

-SIDE  SLIP  ANGLES 
YAWING  MOMENT  COEFFICIENTS 

CNB »CN8D  -BETA  ANO  BETA  DOT  CO£eFICIcNTS  (NONOrM.) 

-V  ANO  VO  COEFFICIENTS  (OIM. ) , L3-SEC , L3-S EC** 2 
C.NP  ,CNR  ,CNDR,  CNOA  -ROLL  RATE,  YAW  RATE,  RUOOER  ANO  AILERON 

-COEFFICIENTS,  FT-LB-SEC/OEG, FT-LB-SEC/OEG, 
-FT-LB/OEG, FT-LB/OEG 

KCN  -AEROELASTIC  EFFECTS  COEFFICIENT  (MACH, ALT) 
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Table  138:  LISTING  FOR  SUBROUTINE  DL  (CONTINUED) 


CNTR 

CNFS 

KCNGE 

KCN3 

KCNBR 

CONTROL  SURFACES 

ruo,ail,fsp 


-TAKEOFF/RECOVERY  TRUNK  COEFFICIENT!, NONOIM. ) 
-V  COEFFIEI CNT  (OIM.),  L3-SEC 
-FLIGHT  SPOILER  COEFICISNT,  FT-LS/OEG 
-GROUND  EFFECT  FACTOR  ON  CNB 
-LARGE  SIDE  SLIP  ANGLE  FACTOR  FOR  CNB 
-RUOOER  EFFECTIVENESS  PARAMETER  FOR  LARGE 
-SIDE  SLIP  ANGLES 


-RUDDER, AILERON  AND  FLIGHT  SPOILER 
-OEFLECTIONS,  DEG 
LONGITUDINAL  ACCELERATIONS 

UD,WD  -X,Z  BODY  AXIS  ACCELERATIONS,  FT/SEC**2 

EXTERNAL  FORCES  AND  MOMENTS 


FY  IN 

TXIN,TZIN 

CONSTANTS 

AMASS 

3 

X  AC 


-Y  BODY  AXIS  FORCE,  L3S 

-X  AND  Z  BODY  AXIS  MOMENTS,  FT-LBS 


-RIGID  BODY  MASS,  SLUGS 
-WING  SPAN,  FT 

-X  AXIS  LOCATION  OF  CENTER  OF  PRESSURE 
-FROM  C.G.,  FT 

DIM  -INDICATOR  FUNCTION  FOR  AERO  COEFFICIENTS 

0*  BODY  AXIS,  DIM. 

1*  BODY  AXIS,  NONDIM. 

2*  STABILITY  AXIS,  DIM. 

3*  STABILITY  AXIS,  NONDIM. 

CAStSAS  -DIRECTION  COSINES  FOR  STABILITY  AXIS 

-OR  BOOY  AXIS  DEPENDING  ON  DIM. 

STATES  AND  AERO-VARIABLES 

U,V,W  — X , Y , Z  BODY  AXIS  VELOCITIES,  FT/SEC 

P,R  -X,Z  BOOY  AXIS  ANGULAR  RATES,  DEG/SEC 

BETA  -SIDESLIP  ANGLE,  DEG 

SV  -Y  BOOY  AXIS  ACCELERATION  TERM  FOR  VD,FT/SEC**2 

V3AR  -TRUE  AIRSPEED,  ft/SEC 

<38 AR  -DYNAMIC  PRESSURE  TIMES  REFERENCE  AREA,  LBS 

RW  -Y  BODY  AXIS  ANGULAR  RATE  GUST,  DEG/SEC 


WRITTEN  BY  A. W. WARREN 


AS  COMPONENT  LD  IN  FLIGHT  CONTROLS 
LIBRARY.  SEPT.  1976 


MODIFIED  BY  MAHINOER  WAHI  MAY  2  1977 

INITIALIZATION 


OATA  ISW,RPD 

/O,. 01745329/ 

IF(ISW.EQ.l) 

GO  TO  10 

I F (CY3  ,EQ. 

.999991 

CY8 

*0. 

IF (CY3D  .SQ. 

.99999) 

CY30 

=c . 

IF  (CYP  .SQ. 

.99999) 

CYP 

*0. 

Ie (CYR  .SQ. 

.99999) 

CYR 

*0. 

IFtCYDR  .SQ. 

.99999) 

CYDR 

*0. 

IFICYOA  .SQ. 

.99999) 

CYDA 

*0. 

I F (CYTR  .EQ. 

.99999) 

CYTR 

*0. 

IF (CYFS  .EQ. 

.99999) 

CYFS 

*0. 

IF  (KCYGe. SQ. 

.99999) 

KCYGE* 1. 

I f (KCY3  .EQ. 

.99999) 

KCY3 

*1. 

IF (KCYBR.EQ. 

.99999) 

KCYBRsl. 

IFIKCY  .SO. 

.99999) 

KCY 

*1. 
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Table  138:  LISTING  FOR  SUBROUTINE  DL  (CONTINUED) 


C 

IF (CL 3  .  EQ.  .99999)  CL3  =0. 

IF (CL3D  .EQ.  .99999)  CL30  =0. 

I F (CLP  .EQ.  .99999)  CLP  =0. 

IF (CLR  .  EQ.  .99999)  CLR  =0. 

IFiCLOR  . EQ.  .99999)  CLDR  *0. 

IF (CL 0 A  .EQ.  .99999)  CLDA  *0. 

IF  (CLTR  • EQ.  .99999)  CLTR  =0. 

IF(CLFS  .EQ.  .99999)  CLFS  =0. 

I F (KCLGS. EQ.  .99999)  KCLGE=1. 

IFKCLB  .EQ.  .99999)  KCLB  *1. 

IF (KCLBR.EQ.  .99999)  KCLBR=1. 

IF (KCL  .EQ.  .99999)  KCL  *1. 

C 

IF (CNB  .EQ.  .99999)  CN8  =0. 

IF (CNBO  .EQ.  .99999)  CN8D  =0. 

IF (CNP  .EQ.  .99999)  CNP  =0. 

IF (CNR  .EQ.  .99999)  CNR  =C. 

Ir (CNDR  .EQ.  .99999)  CNOR  =0. 

IF (CNOA  .EQ.  .99999)  CNOA  *0. 

IF ( CNTR  .EQ.  .99999)  CNTR  *0. 

IFICNFS  .EQ.  .99999)  CNF$  =0. 

IFUCNGE.EQ.  .99999)  KCNGE=1. 

IMKCNB  .EQ.  .99999)  KCNB  *1. 

IF (KCN8R. EQ.  .99999)  KCN8R=1. 

C 

IF(XAC  .EQ.  .99999)  XAC  *0. 

IF (UO  .EQ.  .99999)  U0=WD=0. 

I F ( FYIN  .EQ.  .99999)  FYIN=TXI N=TZIN=0. 

IF (RUD  .EQ.  .99999)  RUO  =C. 

IF ( AI L  .EQ.  .99999)  AIL  =0. 

IF(FSP  .EQ.  .99999)  FSP  *0. 

ISW*1 

C  OIMENSIQNAL  FORCE  AND  MOMENT  SOLUTION 

r 

w 

10  IF ( DIM.EQ . 1.  .OR.  0IM.EQ.3.)  GO  TO  20 
C 

C  SOLUTION  OF  IMPLICIT  EQN  FOR  FY  ANO  VO  USING  ASOL,EVP 

VWOOT *  RW*V8AR*RPD 
ASOL*  1.-  CYBO/AMASS 
EVP  *  EV  ♦  VWOOT 

FYa  (  (CY3*KCY  ♦  CYTR ) *KCYGE*V  CY9D*SVP  ♦  CYP*P  ♦  CYR*R 

*  ♦  CYOA*AIL  ♦  CYF$»FSP)*KCY9  ♦  CYOR*RUO*KCYBR 
FYASRO*  FY/ASOL 

FY*  (FY  ♦  FYIN )/ASOL 
VOP*  FY/AMASS  ♦  EVP 
VO*  VOP  -  VWOOT 

C  ROLL  ANO  YAW  MOMENT  COMPUTATIONS 

C 

KCN-KCY 

TXS*  ( ( CL9*KCL  ♦  CLTR  )*KCLSE*V  ♦  CL3D*EVP  ♦  CL?*P  ♦  CLR*R 

*  ♦  C  LOA*AIL  ♦  CLFS*FSP)*<CL3  ♦  CLDR*RUO*KC  L3R 

TZS*  ((C'I8**<CN  *  CNTR ) *KCNGE*V  ♦  CN80*£VP  «•  C NP*P  ♦  CNR*R 

*  ♦  CN0A*AIL  ♦  CNFS*F$P ) *KCNB  ♦CNDR*RUD*<CN9R 
IF (OIM.SQ .2 • )  GO  TO  40 

C 
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Table  138:  LISTING  FOR  SUBROUTINE  DL  (CONCLUDED) 


C  800V  AXIS  TORQUES 

30  TX*  TXS  ♦  TXIN 

TZ*  TZS  ♦  TZIN  ♦  XAC*FYAERO 
RETURN 

STABILITY  AXIS  TORQUES 

40  TX  *  TXS*CAS  -  TZS*SA S  ♦  TXIN 

TZ  *  TXS*S AS  «■  TZS*CAS  «•  TZIN  ♦  XAC*FYAERO 
RETURN 

NONOI MENS IONAL  FORCE  ANO  MOMENT  SOLUTION 

20  BOIMa  8/CV8AR+VBAR) 

95T1*  BETA *RPO 
PI*  P*RPO 
R 1  =  R*R*>0 
A I  LI*  AIL*RPD 
RUDl*  RUO*RPD 
FSP1*  FSP*RPD 

SOLUTION  OF  IMPLICIT  EQN  FOR  FY  ANO  VO  USING  ASOL,DSOL 
DIV*  U.  -  BET1**2)/VBAR 
ASOL*  1.  -  QB AR*B0IM*CYBD*0IV/AM ASS 
DS0L=EV*0  IV  -  3ET1*(U*U0+W*W0)/VBAR**2  ♦  RW*RPD 
FY=  Q3AR*l  ( (CY8*KCY  ♦  CYTR)  *KCYGE*9ET1  «•  3DIM*( C Y3D*DS0L 

1  ♦CYP*P1  ♦  CYR*R1)  ♦  CYDA*AIL1  ♦  CYFS*FSPl )  *KCYB 

2  ♦CY0R*RUD1*KCYBR) 

FYAERO*  FY/ASOL 
FY=  (FY-*-F YIN)  /ASOL 
VO*  FY/AMASS  ♦  EV 

ROLL  ANO  YAW  MOMENT  COMPUTATIONS 


KCN*KCY 

BETDOT*  FY*OIV/AMASS  ♦  DSOL 

TXS*Q9AR*8*( ( (CL3*KCL  ♦  CLTR ) *KCLGE*BET1  ♦  BOIM* (CL3D*8ETOOT 

1  ♦  CLP*P1  ♦  CLR*R1)  ♦  CL0A*AIL1  ♦  CLFS*FSP1 )*KCL3 

2  CLDR*RUD1*KCLBR) 

TZS*  QBAR*8*(  l(CN3*KCN  *■  CNTR  >*KCNGE*B  ET1  BOIM*<  CN3D*BETD0T 

1  ♦  CNP*P1  ♦  CNR*R1)  CN0A*AIL1  CNFS*FSPl  )*KCNB 

2  ♦  CNDR*RUD1*KCNBR ) 

IFtDIM.EQ.I.)  GO  TO  30 

IF (DIM.EQ  .3. )  GO  TO  40 
END 
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Table  139:  LISTING  FOR  SUBROUTINE  OS 


COS 

SUBROUTINE  DS(U,UO,Itj  .  V,  VO,  IV  ,W  ,WO,  IW  ,  P,PO,  IP  ,Q ,  QO,  10  , 

1  R,RD,IR*ROL,ROLD,IROL,PIT,PITD,  IPIT,YAW, YAWO, IYAW, 

2  XD,YD,Z,ZD,IZ,POOT,OOOT,RDOT,ROD,PID, 

3  UOOT , VOOT , WOOT,TX,TY,TZ»XXI»YYI»ZZI,XZI) 

VERSION  2.  JULY  8  1977 

PURPOSE:  SIX  DEGREE  OF  FREEDOM  RIGID  BODY  EQUATIONS  OF  MOTION 

METHOD:  EULER  ANGLES 
CALL  SEQUENCE: 

*****  OUTPUTS  ***** 

LINEAR  VELOCITIES  —  BODY  AXES 

U  »UD  , IU  -  X  AXIS  LINEAR  VELOCITY*  ACCEL  »INT  CONTROL,  FT/SEC 

V, VO,IV  -  Y  AXIS  LINEAR  VELOCITY, ACCEL , I  NT  CONTROL,  FT/SEC 

W, WD,IW  -  Z  AXIS  LINEAR  VELOCITY, ACCEL , INT  CONTROL,  FT/SEC 

ANGULAR  VELOCITIES  —  BODY  AXES 

P,PO,IP  -  X  AXIS  ANGULAR  V6L0C I TY , ACCEL, INT  CONTROL,  DEG/ScC 

Q  »QO,IQ  -  Y  AXIS  ANGULAR  VE LOC ITY , ACCEL, INT  CONTROL,  DEG/SEC 

R,RD,IR  -  Z  AXIS  ANGULAR  VE LOC ITY , ACCEL, I  NT  CONTROL,  DEG/SEC 

EULER  ANGLES  —  EARTH  TO  BOOY  -  YAW , PI TCH ,ROLL 
ROL, ROLO , IROL  -  ROLL  ANGLE , RATE , INT  CONTROL, DEG 
PIT,PITD,IPIT  -  PITCH  ANGLE, RATE, INT  CONTROL,  DEG 
Y AW, YAWO , IYAW  -  YAW  ANGLE, RATE, INT  CONTROL,  OEG 
POSITION  —  EARTH  AXES 

XD  -  X  AXIS  LINEAR  VELOCITY,  FT/SEC 

YD  -  Y  AXIS  LINEAR  VELOCITY, FT/SEC 

Z,ZD»IZ  - Z  AXIS  POSITION  ( ALT) , VELCC ITY , INT  CONTOL,  FT 

ANGULAR  ACCELERATION  —  BOOY  AXES 

POOT  -  X  AXIS  ANGULAR  ACCELERATION,  DEG/SEC2 

QDOT  -  Y  AXIS  ANGULAR  ACCELERATION,  0EG/SEC2 

ROOT  -  Z  AXIS  ANGULAR  ACCELERATION,  DEG/SEC2 

****************  INPUTS  ******************** 

LINEAR  ACCELERATION  —  BODY  AXES 

UDOT  -  X  AXIS  LINEAR  ACCELERATION,  FT/SEC2 

VDOT  -  Y  AXIS  LINEAR  ACCELERATION,  FT/SEC2 

WOOT  -  Z  AXIS  LINEAR  ACCELERATION,  FT/SEC2 

MOMENTS 

TX,TY»TZ  -  X,Y,Z  AXIS  TORQUES,  FT LBS 
MOMENTS  OF  INERTIA 

XXI , YYI , ZZI  -  X , Y»Z  AXIS  MOMENTS  OF  INERTIA,  SLUG-FT2 
XZI  -  PRODUCT  OF  INERTIA,  SLUG— PT2 

WRITTEN  BY  J.O.  BURROUGHS  MAY  1976 

AS  COMPONENT  **SD**  IN  FLT  CONTROLS  LIBRARY 

MODIFIED  BY  M.K.  WAHI  JULY  1977 

OATA  RPO.DPR  /. 01745329 ,57.29578/ 

CP=COS(PIT*RPD> 

SP-SIN(PIT*RPO) 

CP=COS(ROL*RPO) 

SR=SIN<ROL*RPO) 

PI*  P*RPD 
Ql*  Q*RPO 
Rl*  R*RPO 

C  ****************  LINEAR  VELOCITY  EQUATIONS  ************** 

IF ( IU.NE.O )UD=UDOT 
IF (IV.NE.O)VO*  VDOT 


Table  139:  LISTING  FOR  SUBROUTINE  OS  (CONCLUOED) 


I<=(lW.NE.O)WO  =  WOOT 

C  ****************  ANGULAR  VELOCITY  EQUATIONS  ***********<1* 

IF  ( XZ  I  •  NE  •  0  . . ANO.X ZI  .NE  •  .99999)  GO  TO  IOO 
IF(IP.NE.0)P0*(TX-Q1*R1*(ZZI-YYI ) >/XXl*OPR 
IF(IQ.N5.0)Q0=(TY-P1*R1»(XXI-ZZI ) )/YYl *DPR 
IF(IR.NE.O)RO»ITZ-Ql*Pi*(YYI-XXl ) )/ZZI*OPR 
GO  TO  160 

100  IF (IQ.NE.O)QD=( ( TY-P1*R1* ( XXI -ZZ I ) ♦ ( R1 *R1-PI*P1 ) *XZ I I /YY I >*DPR 
IF(IP«-IR.EQ.O)GO  TO  160 
TEMssZZI/XZI 
DIV*XXI*TEM-XZI 
QR*Q1*R1 
PQ*P 1 *Q 1 
SUM=ZZI-YYI*XXI 

IF ( IP.NE.O ) PD*(  (TX*TSM*TZ-QR*(TEM*( ZZI -YYI ) ♦XZI ) 

1  ♦PQ*SUM)/DIV)*OPR 
TEM*XXI/XZI 

IF (IR.NE.O)RO=<TX*TZ*TEM-QR*SUM*PQ*(TEM*<XXI-YYI >♦ 

1  XZI) )/OIV*OPR 

C  ****************  EULER  ANGLE  EQUATIONS  ************* 

160  IF(IPIT.NE.O)PITD=Q*CR-R*SR 
PID  =  PITO 

IF (CP.N6.0 .)PSID=(Q*SR*R*CR)/CP 
IF (IYAW.NE.O)YAWDaPSID 
IF(IROL.NE.O)ROLD=P*PSID*SP 
ROD  =  ROLD 

C  ***************  POSITION  EQUATIONS  *************** 

C  -  TEST  IF  X  AND  Y  (LATITUDE  AND  LONGITUDE)  ARE  BOTH  FROZEN 

SPSR=SP*SR 

SPCR=SP*CR 

CY^COS(YAW*RPD) 

SY=SIN(YAW*RDD) 

XD=CY*CP*U-M-SY*CR*CY*SPSR)*V+(SY*SR*C  Y*SPCR)*W 
YD=SY*CP*U>( CY*CR ♦ SY*  SPSR ) *V* (-CY*SR*SY*SPCR)*W 
ZCO  IF(IZ.NE.O) ZD* SP*U— CP *SR*V-C  P*CR  *W 

C  ****************  ANGULAR  ACCELERATIONS  (FOR  OUTPUT  PURPOSES  ONLY)  **** 
PDOTsPD 
QDQTaOO 
ROOT=RD 
RETURN 
END 
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Table  140:  LISTING  FOR  SUBROUTINE  DU 


cou 

SUBROUTINE  DU  1 T2 ,W2 ,P I ,P 100T, IP  I ,TI ,  Wl ,P2 , AK, AL, 0,TAM ,HO, PC ) 

PURPOSE  -  ANALYSIS  OF  DUCT,  USING  SIMPLIFIED  MOOEL  WITH  SINGLE  STATE 
VARIABLE 


M6TH00  -  SEE  SECTION  3.1.1  FOR  DERIVATION  OF  EQUATIONS 
FINAL  REPORT  AFFOL-TR-  VOLUME  I 
CONTRACT  NO.  F33615-76-C -3100, JULY  1977. 

THE  INPUTS  TO  EACH  DUCT  RELATED  MOOEL  ARE  THE 
INLET  FLOW  RATE, INLET  TEMPERATURE , AND  OUTLET 
PRESSURE.WHILE  OUTPUTS  ARE  THE  OUTLET  FLOW  RATE  AND 
TEMPERATURE  AND  INLET  PRESSURE .THE  INLET  PRESSURE 
IS  TRSATEO  AS  A  STATE  VAR  I  ABLE . 


LIMITATIONS  -  IF  TEMPERATURE  CHANGES  ARE  LARGE, ADO ITION 
OF  THERMAL  NODES  SHOULD  BE  CONSIDERED 

WRITTEN  BY  ADAM  LLOYO  AS  COMPONENT  *DE*  IN  ECS  LIBRARY 

NOV.  1975 

MOOIFIED  BY  -  MAHINOER  WAHI  AUGUST  1977 


INPUT/OUTPUT  LIST 


T2 

OUTLET  TEMPERATUREtPORT  NO  2) 

DEGR 

OUTPUT 

VAR 

W2 

OUTLET  FLOW 

LB /MIN 

OUTPUT 

VAR 

PI 

INLET  PRESSURE! PORT  NO  1> 

PSIA 

OUTPUT 

STATE 

P1DOT 

INLET  PRESSURE  DERIVATIVE 

PSIA/SEC 

OUTPUT 

DERIV 

IP1 

INTEGRATOR  CONTROL 

— 

PROGRAM  VAR 

T1 

INLET  TEMPERATURE 

06GR 

INPUT 

VAR 

W1 

INLET  FLOW 

LB/M  IN 

INPUT 

VAR 

P2 

OUTLET  PRESSURE (PORT  NO  2) 

PSIA 

INPUT 

VAR 

AK 

K  FACTOR 

— 

INPUT 

PA  RAM 

AL 

LENGTH 

FT 

INPUT 

PARAM 

0 

DIAMETER 

IN 

INPUT 

PARAM 

TAM 

EFFECTIVE  LOCAL  AMBIENT  TEMP 

DEGR 

INPUT 

PARAM 

HO 

EXTERNAL  HEAT  TRANSFER  COEFFICIENT 
(BASED  ON  INTERNAL  WETTEO  AREA) 

BTU/FT2 

HR  OEGR 

INPUT 

PARAM 

FC 

FREQUENCY  CONTROL  ON  PI.  (FC.GE.i. 

)- — 

INPUT 

PARAM 

A  VALUE  OF  PC  GREATER  THAN  1. 
DECREASES  FREQUENCY  RESPONSE  OF  PI 
CORRESPONDINGLY 


COMMON/5RMESS/IFATAL, I  ERR 
COMMON/CI O/IRS AO, IWRITE,IDIAG 

C  CALCULATE  GAS  CONSTANT  ANO  RATIO  OF  SPECIFIC  HEATS,  BASED  CN 
C  INLET  TEMPERATURE 
CP*SHCP«T1,0.) 

R*53.3 

GAMMA *l.*R/f 778. *CP-R> 

Gl*l. /(GAMMA-1.) 

G2»(GAMMA— 1. )/2. 
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Table  140:  LISTING  FOR  SUBROUTINE  CU  (CONCLUDED) 


C  CALCULATE  OUTLET  FLOW  BASED  ON  INLET  TEMPERATURE 
CA». 785398*0*0 

CALL  FNFL0W(Pl,P2,Tl,CA,AKtFN,W2) 

C  CALCULATE  OVERALL  CONDUCTANCE  (UA)  BASED  ON  AVERAGE  FLOW 
WBAR«'ABS(W1)*ABS(W2> )/2. 

WBARsAMAX 1 ( WB AR ♦ .01 ) 

HINT»HI (l*Tl,TItWBAR»0.»D»AL*0.) 

C  THE  INPUT  VALUE  OF  THE  EXTERNAL  HEAT  TRANSFER  COEFFICIENT  IS  BASED 
C  ON  THE  INTERNAL  WETTED  AREA.  HENCE  UA  IS  GIVEN  BY 
UA*0.004363*D*AL*HINT*H0/(HINT*H0) 

C  CONSTANT  0.00*-363*PI/t60.*12.)  UA  IS  IN  BTU/MIN  OEGR 
C  CALCULATE  OUTLET  TEMPERATURE  T2 

T2=TAN*IT1-TAM>/EXP(UA/(CP*WBAR) > 

C  WARNING  DIAGNOSTIC  IF  TEMPERATURE  CHANGE  EXCEEDS  300  DEGR 
IFIABSCT1-T2) .LE.300.)GQ  TO  10 
IF (Tl .GT.T2)  T2=Tl-300. 

IF  (T2.GT.T1 )  T2=Tl+300. 

C  TEST  FOR  DIAGNOSTIC  PRINT  OUT 
IF ( IERR  «NE .1 ) GO  TO  10 
WRITE! IWRITE, 9999) 

9999  FORMAT! 10 X,45HN0N  FATAL  ERROR  CALLED  FROM  DUCT  COMPONENT  DU/ 

1  10X»  35HTEMPERATUR6  CHANGE  EXCEEDS  300  DEGR) 

C  CALCULATE  INLET  PRESSURE  BASED  ON  AVERAGE  FLUID  TEMPERATURE 
10  T8AR»!TH-T2)/2. 

P0AR=<Pl«.P2>/2. 

C  CALCULATE  MACH  NUMBER  BASED  ON  AVERAGE  CONDITIONS 
AM=AMACHI P9AR , TBAR , CA ,WBAR, 0. ) 

IF ( IP1.NE .0)P 1D0T=R*TBAR* ! W1-W2 ) *! 1 •♦G2*AM*AM )**G1/ !60.*CA*AL*FC) 

RETURN 

END 
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Table  141:  LISTING  FOR  SUBROUTINE  DV 


CDV 

SUBROUTINE  DV(T2,W2,P1,P1D0T,IPI,TI,W1  ,P2 »OP6 , AL ,0t DPO, 

1  T AM»HO  *FC  tVAL) 

PURPOSE  -  ANALYSIS  OP  A  VALVE  ( BUTTERFLY ,GATE  OR  GLOBE)  IN  A  DUCT 


METHOO  -  CALLS  VLX  TO  CALCULATE  FLOW  ACROSS  VALVE.  REMAINOER 

OF  ANALYSIS  SIMILAR  TO  OUCT  (OE).  VALVE  OPENING  IS  INPUT. 


LIMITATIONS  -  AS  FOR  OUCT  COMPONENT  OE 


WRITTEN  BY  ADAM  LLOYD  AS  COMPONENT  *VO*  IN  ECS 

LIBRARY  NOV.  1975 

MODIFIED  BY  -  MAHINDER  WAHI  AUGUST  1977 


INPUT/OUTPUT  LIST 


T2 

OUTLET  TEMPERATURE (PORT 

NO  2) 

DEGR 

OUTPUT 

VAR 

W2 

OUTLET  FLOW 

LB /MIN 

OUTPUT 

VAR 

PI 

INLET  PRESSURE ( PORT  NO 

1) 

PSIA 

OUTPUT 

STATE 

PI  DOT 

INLET  PRESSURE  DERIVATIVE 

PSIA/SEC 

OUTPUT 

OcRIV 

IP1 

INTEGRATOR  CONTROL 

— 

PROGRAM  VAR 

T1 

INLET  TEMPERATURE 

OEGR 

INPUT 

VAR 

W1 

INLET  FLOW 

LB/MIN 

INPUT 

VAR 

P2 

OUTLET  PRESSURE?  PORT  NO 

2) 

PSIA 

INPUT 

VAR 

OPE 

VALVE  OPENING 

— 

INPUT 

PARAM 

VAL*1.  DEGREES  OPEN 
VAL=2,3.  FRACTIONAL  OPENING 
( O.LE .OPEN .LE.l •) 


AL 

length 

FT 

INPUT 

PARAM 

D 

OIAMETER 

IN 

INPUT 

PARAM 

OPO 

POPPET  DIAMETER 

(REQUIRED  FOR  GLOBE  VALVES  ONLY) 

IN 

INPUT 

VAR 

TAM 

EFFECTIVE  LOCAL  AMBIENT  TEMP 

DEGR 

INPUT 

PARAM 

HO 

EXTERNAL  HEAT  TRANSFER  COEFFICIENT 
(BASED  ON  INTERNAL  WETTED  AREA) 

3TU/FT2 
HR  OEGR 

INPUT 

PARAM 

FC 

FREQUENCY  CONTROL  ON  PI.  (FC.GE.l. 
A  VALUE  OF  FC  GREATER  THAN  l. 
DECREASES  FREQUENCY  RESPONSE  OF  PI 
CORRESPONDINGLY 

INPUT 

PARAM 

VAL 

CODE  IDENTIFYING  TYPE  OF  VALVE 

— 

INPUT 

PARAM 

«1.  BUTTERFLY  VALVE 
*2.  GATE  VALVE 
«3.  GLOBE  VALVE 


COMMON/5RM£SS/IFATAL» I ERR 
COMMON/C 1 0/ IRE AO  »IWRITE»IDIAG 

C  CALCULATE  GAS  CONSTANT  AND  RATIO  OF  SPECIFIC  HEATS t  3ASED  ON 
C  INLET  TEMPERATURE 
CP*SHCP(T1,0.) 

R*53.3 
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Table  141:  LISTING  FOR  SUBROUTINE  DV  (CONCLUDED) 


GAMMA=1.+R/(778.*CP-R> 

Gl*l. /(GAMMA-1.) 

G2*(GAMMA— 1. )/2. 

C  CALCULATE  OUTLET  FLOW  (FLOW  THROUGH  VALVE)  USING  SUBROUTINE  VLX 
CA*. 785398*0*0 

CALL  VLX(P1,P2,T1,D,DP0,0PE,VAL,W2) 

C  CALCULATE  OVERALL  CONDUCTANCE  (UA)  BASED  ON  AVERAGE  FLOW 
W8AR* ( A8S ( Wl) +ABS ( W2 ) )/2. 

WB AR* AMAX l(WBARf.Ol) 

HlNTsHKl  ,TI,Tl,W3ARf0.  »0,AL»0.) 

C  THE  INPUT  VALUE  OF  THE  EXTERNAL  HEAT  TRANSFER  COEFFICIENT  IS  BASED 
C  ON  THE  INTERNAL  WETTED  AREA.  HENCE  UA  IS  GIVEN  BY 
UA=0.C04363*0*AL*HINT*H0/(HINT+H0) 

C  CONSTANT  0.C0A363*PI/( 60. *12. )  UA  IS  IN  BTU/MIN  OEGR 

C  CALCULATE  OUTLET  TEMPERATURE  T2 

T2=TAM+(T1— TAM l/EXP (UA/ (CP*WB AR ) ) 

C  WARNING  DIAGNOSTIC  IF  TEMPERATURE  CHANGE  EXCEEDS  300  OEGR 
IF(ABS(T1-T2) .LE .300. ) GO  TO  10 
IF(T1.GT.T2)  T2=Tl— 300. 

IB (T2 .GT.T1 )  T2*T1+30C. 

C  TEST  FOR  DIAGNOSTIC  PRINT  OUT 
IFdERR.NE.DGO  TO  10 
WRITE (IWRITE, 9999) 

9999  FORMAT ( 10 X  »45HN0N  FATAL  ERROR  CALLED  FROM  COMPONENT  OV 
1  10X» 35HTEMPERATURE  CHANGE  EXCEEDS  300  DEGR ) 

C  CALCULATE  INLET  PRESSURE  BASED  ON  AVERAGE  FLUID  TEMPERATURE 
10  TBAR=(Tl«-T2>/2. 

P8AR*(Pl+P2>/2. 

C  CALCULATE  MACH  NUMBER  BASED  ON  AVERAGE  CONDITIONS 
AM*AMACH( PBARfTSARfCAvWBARtO.) 

IP<IP1.NE .0 )P 1D0T=R*TBAR* (Wl— W2 ) *( 1 •♦G2*AM*AM )**Gl/ (60.*CA*AL*FC) 

RETURN 

ENO 


Table  142:  LISTING  FOR  SUBROUTINE  DYNFAN 


COYNFAN 

SUBROUTINE  DYNFAN ( QFAN,PF AN J 
C  DYNAMIC  FAN  MOOEL  SUBROUTINE 
C  INPUT  FLOW  ANO  OUTPUT  PRESSURE 

COMMON/ESTMD/GEC » OAMPCf U»DECCL  ,HOC, PHA  »CENFX, CGNFZ  »ZEPRV»  Z PR V 
1.QP2, SLOPE 

COMMON/COMPRS/ALO » AL1, AL2, AL3 , AL4, GO, G1 » G2 »G3 » G4»QP1 
COMMON/FM6RR/FMC 
OATA  Q I/O • / 

C  COMPUTE  POWER  SERIES  TERMS 
IF (FMC ,GT .0. )  Q1*QFAN 
02«Q1*01 
Q1*0FAN 
Q3=Q2*Q1 
Q4=Q3*Q1 

PFAN*G0+G1*QI+G2*Q2^€3*Q3+G4*Q4 

IF(Ql.LT.QP2)PCAN=G0+Gl*QP2-*-G2»QP2*QP2fG3*QP2*QP2*QP2*G4*(QP2)**<, 
1-M  QP2-Q1) *SLOPE 
RETURN 
END 
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Table  143:  LISTING  FOR  SUBROUTINE  EC 


CEC 

SUBROUTINE  EC (PR ,WN2,TFT,TRT,TSR ,TFN,TFP , T3T,TBP ,TPO, 

1  PRO,PROD,IPRO,PRR,PRRD,IPRR,X2,X20»IX2,X3,X30,IX3,FX, 

2  FZ,TY,TH,FSP,FST,PPU,TPU,W2,T2,THT,C1,C2,C3,C4,C5,C6,C7, 

3  C8,TCltZTA,AMN,TC2,GAMX,GAMZ,X0,Z0,PAM,TAM,P2,FAN,BLD,FXl) 

VERSION  4.  R5VISEO  SEPT  10,1977 

PURPOSE  ENGINE  TRANSIENTS  MODEL 

METHOD  FIRST  ORDER  LAG  FOR  SPINOOWN  AND  SECOND  ORDER  LAG  FOR 
SPINUP  FOLLOWED  BY  BODY  AXIS  TRANSFORMATION. REVERSE 
THRUST  OPERATION  ALSO  INCLUDED. BLEED  AND  FAN  AIR 
PRESSURES  AND  TEMPERATURES  ARE  THEN  CALCULATED  AS 
FUNCTIONS  OF  THRUST  AND  MACH  NUMBER. 

CALL  SEOUENCE 
*****  TABLES  ***** 

PR  —COMMA NO  PRESSURE  RATIO  AS  A  FUNCTION  OF  THRUST 

LEVER  ANGLE ( THT) ;  ONE  DIMENSIONAL  TABLE 
WN2  -NATURAL  FREQUENCY  SQUARED  AS  A  FUNCTION  OF 

ACTUAL  ENGINE  PRESSURE  RATIO(PRO);  ONE  OIM.  T8L 
TFT  -ENGINE  FORWARD  THRUST  AS  A  FUNCTION  OF  MACH  NUMBER 

< AMN )  ANO  ACTUAL  PRESSURE  RATIO(PRO);  TWO  DIM.  TBL 
TRT  -ENGINE  REVERSE  THRUST  AS  A  FUNCTION  Oc  MACH  NUMBER 

(AMN)  ANO  ACTUAL  PRESSURE  RATIO(PRO):  TWO  DIM.  TBL 
TSR  -ENGINE  SPEED  AS  A  FUNCTION  OF  MACH  NO.  AND 

INSTANTANEOUS  THRUST  (TWO  OIMENSIONAL  TABLE) 

TFN  -TEMPERATURE  RISE  FAN-INLET  TO  OUTLET  AS  A 

FUNCTION  OF  CORRECTED  ENG.  SPEED(ONE  DIM.  TABLE) 

TFP  -PRESSURE  RATIO  FAN  OUTLET  TO  INLET  AS  A  FUNCTION 

OF  CORRECTED  ENG.  SPEED (ONE  DIM.  TABLE) 

TBT  -TEMPERATURE  RISE  COMPRESSOR-INLET  TO  OUTLET  AS  A 

FUNCTION  OF  CORRECTED  ENG.  S PE ED ( ONE  DIM.  TABLE) 

TBP  -PRESSURE  RATIO  COMPRESSOR  OUTLET  TO  INLET  AS  A 

FUNCTION  OF  CORRECTED  ENG.  SPEED(0N6  DIM.  TABLE) 

TPO  -  CORRECTED  BLEED  FLOW  RATE  AS  A  FUNCTION  OF 

ENGINE  PORT  PRESSURE  DROP  (ONE  DIM.  TABLE) 

*****  OUTPUTS  ***** 

PRO,  PR 00, 1  PRO- ACTUAL  ENGINE  PRESSURE  RATIO, RATE, INT  CONTROL. 

PRR , PRRO , I PRR-RE VERS E  ENGINE  PRESSURE  RATIO, RATE, INT  CONTROL 
X2 , X2D, 1X2  -INTERMEDIATE  VALUE  OF  PROD, RATE, INT  CONTROL 

X3 , X30, 1X3  -INTERMEDIATE  VALUE  OF  PROD, RATE, INT  CONTROL 

FX ,  FZ  -X  AND  Z  AXIS  FORCES,  LBS 

TY  -Y  AXIS  TORQUE (PITCHING  MOMENT),  FT-L3S 

TH  -ENGINE  THRUST,  LBS  v 

FSP  -fan  STAGE  OELIVERY  PRESSURE  (PSIA) 

FST  -FAN  STAGE  OELIVERY  TEMPERATURE  (DEG  RANKIN6) 

PPU  -BLEED  PRESSURE  UPSTREAM  OF  THE  PORT  (PSIA) 

tpu  -bleed  temperature  upstream  of  the  port  oeg  rankine) 

W2  -  BLEED  AIR  FLOW  RATE  (L8/MIN)  PORT  NO  2 

T2  -BLEED  TEMPERATURE  DOWNSTREAM  OF  THE  PORT (DEG  RANKINE) 

*****  INPUTS  ****** 

THT  -THRUST  LEVER  ANGLE 
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Table  143:  LISTING  FOR  SUBROUTINE  EC  (CONTINUED) 


Ci 

C2 

C3 

C4 

C3 

C6 

C7 

C8 

TCI 

ZTA 

AMN 

TC2 

GAMX.GAMZ 

xo,zo 

PAM 


-POSITIVE  DEADBAND  ON  THT 
-NEGATIVE  OEAOBANO  ON  THT 
-POSITIVE  SATURATION  INTERCEPTf .GT.C1) 

-NEGATIVE  SATURATION  INTERCEPT .LT.C2) 

-POSITIVE  SATURATION  LIMIT  ON  THT 
-NEGATIVE  SATURATION  LIMIT  ON  THT 
-SATURATION  SLOPE ( MU  ST  BE  >VE) 

-SATURATION  SLOPEIMUST  BE  *VE ) 

-ENGINE  SPINOOWN  TIME  CONSTANT,  SEC 
— OAMPING  RATIO  (SPINUP) 

-MACH  NUMBER 

-THRUST  REVERSERS  TIME  CONSTANT,  SEC 
-X,Z  DIRECTION  COSINES 

-THRUST  LOCATION  COMPONENTS  FROM  C.G.,  FT 
-AMBIENT  PRESSURE  (PSIA) 

-AMBIENT  TEMPERATURE  (DEGREES  RANKINE) 

-  3LEE0  PRESSURE  DOWNSTREAM  OF  THE  PORT( PSIA )PORT  NO  1 
-INDICATOR  FUNCTION  FOR  ENGINE  FAN  AIR  CALCULATIONS 
0*  TO  BE  INCLUDEO 
1=  TO  BE  EXCLUDED 

-INDICATOR  FUNCTION  FOR  ENGINE  BLEED  AIR  CALCULATION 
0*  TO  BE  INCLUDED 
1»  TO  BE  EXCLU060 

-EXTERNAL  FORCE  X-AXIS(THRUST  REDUCTION  DUE  TO 
USE  OF  A  THRUSTER) , LBS 


WRITTEN 


-  MAHINDER  WAHI 


APRIL 


DIMENSION  PR(1),WN2(1),TFT(1),TRT(1) 

DIMENSION  TSR(l) ,TFN<1) ,TFP(1) ,T9T( 1) ,T9P( 1) ,TPC( 1 ) 
INITIALIZATION 
IFUMN.EQ.  .99999)  AMN=0. 

IF ( PAM .EQ •  .99999)  PAM*14.7, 

IB(TAM.£Q.  .99999)  TAM*459. 

IF(FX1.EQ.  .99999)  FXlaO. 

PUT  LIMITS  WITH  A  DEAD  ZONE  ON  THRUST  LEVER  ANGLE  INPUT. 

CALL  SB(ThT,THT,C1,C2,C3,C4,C5,C6,C7,C8) 

IF (ThT— 0. ) 10,20,20 
10  ISW  ■  0 
GO  TO  30 
2C  ISW  «  1 
30  CONTINUE 

CALCULATE  ENGINE  COMMAND  PRESSURE  RATIO  FROM  TABLE  LOOKUP  ROUTINE 
NPR  a  PR (2 ) 

PRI  a  TBLU1(THT,PR (4) ,PR(NPR+4) ,1,-NPR) 

EPS  «  PRI-PRO 
EP1  «  AMAX1(SPS,0. ) 

EP2  ■  AMIN1 (E°S,0. ) 

IB  ( 1X3 .NE .0)X 3D  a(£P2-X3)/TCl 

CALCULATE  ENGINE  SPINUP  NATURAL  FREQUENCY  SQ.  BROM  TABLE  LOOKUP  RC 
NWN  a  WM2 ( 2 ) 

WNS  ■  T3LUl(PR0,WN2(4),WN2(NWN4.4)tl,-NWN) 

EM  la  EP1*WNS 
WN  ■  SQRT(WNS) 

IF(IX2.NE.0)Y2D  ■  £M1-2.*WN*ZTA*X2 
IF(IPPC.NE.O)  PROO  *X  2*X3 


SQ.  BROM  TABLE  LOOKUP 


..  ..jA 


f 
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Table  143:  LISTING  FOR  SUBROUTINE  EC  (CONTINUED) 


IF ( ISW.EQ .0)  GO  TO  40 

C  CALCULATE  ENGINE  FORWARO  THRUST  FROM  STANDARD  TABLE  LOOKUP  ROUTINES 
N1  a  TFT(3>*4 
N2  *  TFT(2)*TFT<3)-*-4 
N3  *  TFT C 2) 

N4  a  TFT  C  3  ) 

TF  a  T3LU2{AMN,PR0tTFT{Nl)fTFT(M,TFTlN2),l,l,-N3,-N4,N3,N4> 

GO  TO  50 

40  IF ( IPRR.NE .0 )  PRRD  *  ( PRO-PRR ) /TC2 
C  CALCULATE  ENGINE  REVERSE  THRUST  FROM  STANDARD  TABLE  LOOKUP  ROUTINES 
Nl  »  TRT(3)+4 
N2  =  TRT ( 2 ) ♦TRT ( 3 ) +4 
N3  a  TRT (2) 

N4  a  TRT (3) 

TR  a  TBLU2(AMN,P»RfTRTINl),TRT(4>,TRT(N2>,l,I,-N3,-N4,N3,N4> 
50TH  «  TR+’TF+FXI 
C  300Y  AXIS  TRANSOFRMATION 
FX  a  TH*GAMX 
F2  a  TH*G AMZ 
TY  a  ZO*FX-XO*FZ 
C 

IF(8LD.NE.O.  .ANO.  FAN.NE.O.)  GO  TO  70 
C  RAM  RISE/COMPRESSOR  INLET  CONDITIONS 
PT  a  PAM*(1+  ,2*AMN*AMN ) **3 . 5 
TT  a  TAM*(I+  ,2*AMN*AMN> 

C  CORRECTED  ENGINE  SPEED  RATIO 
NI  a  TSR(3)f4 
N2  a  TSR<2 )fTSR(3)>4 
N3  a  TSR12) 

N4  a  TSRl 3  ) 

SPO=  TBLU2 ( AMN ,TH , TSR (N1 ) ,TSR(4) ,TSR (N2) , 1 , 1 ,-N3 ,-N4,N3 ,N4) 

ENC=  SPD*  SORT ( 519. /TT) 

IF(FAN.NE .0.)  GO  TO  60 

C  FAN  STAGE  DELIVERY  TEMPERATURE  ANO  PRESSURE 
NX  a  TFN( 2 ) 

OTFa  TBIJUI(ENC,TFN(4.)  ,TFN(NXf4)  ,  I, -NX) 

FSTa  TT*I 1 .♦OTF) 

NX  a  TFP( 2  ) 

FPRa  TBLU 1 ( ENC , TFP ( 4)  ,T«=P(NX+4)  ,1,-NX) 

FS Pa  PT*FPR 
60  CONTINUE 

IFOLO.NE.O.)  GO  TO  70 

C  BLEEO  AIR  PRESSURE  AND  TEMPERATURE  CALCULATIONS 
C  PRESSURE  AND  TEMPERATURE  UPSTREAM  OF  BLEED  PORT 
NX  a  T3TI2) 

OT  a  TBLU1  ( ENC  *T3T  (4)  ,  TBT  (  NX >4)  , 1  »-*NX ) 

TP  U=  TT*U.*0T1 
NX  a  T3P<2) 

CPR  a  TBLU1(ENC,TBP(4) »TBP  ( NX+4) ,1,-NX ) 

®P U  *  PT*CPR 
DRATaP«>U/P2 
NX  *  TPOI 2 ) 

WCR»  TBLU  1  (  PR  AT,  TPO  ( <•) ,  TPQ  (  NX*4 )  ,1,-NX) 

C  PLOWRATE  A, no  TEMPERATURE  DOWNSTREAM  OF  BLEED  PORT 

W2  *  WCR’PPPU/SORT  ( TPU ) 

T2 *  TPU 
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Table  144:  LISTING  FOR  SUBROUTINE  EJ 


SUBROUTINE  EJ ( TAB , T3 , W3 ,P 1 , P 100T , I? 1 ,T 1,W I , T2 , P 2 , P3 , 

I  ANT,ANE»A<) 

VERSION  2.  SEPT  19^7 

PURPOSE  -  AN ALTS  I S  OF  AN  EJECTOR  WITH  CONVERGING-O I VERGING 
NOZZLE  ANO  SUBSONIC  OR  CHOKED  FLOW  CONDITIONS 

METHOO  -  USES  A  TWO  DIEMNSIONAL  INPUT  TA8LE  OF  FLOW  RATIO  (TOTAL/ 
PRIMARY)  AS  A  FUNCTION  QF  THE  TWO  PRESSURE  RATIOS  (TOTAL/ 
SECONOARY  AND  PRIMAR Y/SECONOARY ) .FOR  CHOKED  THROAT  FLOW 
UPSTREAM  PRESSURE  IS  COMPUTED  TO  MATCH  FLOW. FOR  SUBSONIC 
FLOW  THE  EXIT  PRESSURE(STATIC)  EQUALS  SECONDARY  SUPPLY 
PRESSURE. 

CALL  SEQUENCE 

*****  tables  ***** 

TAB  -FLOW  RATIO (TOTAL/PRIMARY)  AS  A  FUNCTION  OF  THE  TWO 

-PRESSURE  RATIOS (TOTAL/SECONDARY  ANO  PRIMARY/SECONDARY) 
-TWO  DIMENSIONAL  TABLE. 

*****  OUTPUTS  ***** 

T3  -OUTLET  TEMPERATURE,  OEG  RANKINE ( PORT  NO  3) 

W3  -TOTAL  OUTLET  FLOW,  LB/M IN( PORT  NO  3) 

PI  -INLET  PRESSURE  PRIMARY  AIR  SOURCE,  PSIA  )?ORT 

PI  DOT  -INLET  PRESSURE  DERIVATIVE,  PSIA/SEC  )N0 

IPl  -INTEGRATOR  CONTROL  C0R  PI  11 

*****  INPUTS  ***** 

T 1  -INLET  TEMPERATURE  PRIMARY  SOURCE,  DEG  RANKINE 

Wl  -INLET  FLOW  RATE  PRIMARY  SOURCE,  L3S/MIN(P0RT  NO  1) 

T2  -INLET  TEMPERATURES  SECONDARY  SOURCE,  DEG  RANKINE 

P2  -INLET  PRESSURE  SECONDARY  AIR  SOURCE,  PSIA(P0RT  NO  2) 

P3  -OUTLET  PRESSURE,  PSIA(PCRT  NO  3) 

ANT  -NOZZLE  THROAT  AREA,  SQFT 

ANE  -NOZZLE  EXIT  AREA,  SQFT 

AK  -CONVERGENT-DIVERGENT  NOZZLE  DIFFUSER  LOSS  FACTOR 

-(FOR  CONVERGENT  NOZZLE,  INPUT  AK=0.,  ANE=ANT) 

WRITTEN  BY  MAHINDER  WAHI  AND  ADAM  LLOYD  JUNE  1977 

DIMENSION  TAB ( 1 ) 

DATA  GAMMA  /I .400/ 

C  CHECK  TO  SEE  IF  CHOKING  AT  NOZZLE  THROAT 
WCHO  *  31.9*ANT*P1/SQRT(T1) 

IF (Wl.LT.WCHO)  GO  TO  10 

C  CHOKEO  FLOW  -  CALCULATE  UPSTREAM  PRESSURE  TO  MATCH  FLOWS 
PICAL  *  W 1 *SQRT (T1 1 / (3 1 »9*ANT1 
IF(IPI.NE.O)  P1D0T  =  (P1CAL-PD/.0I 
GO  TO  100 

C  =LOW  IS  NOT  CHOKEO  -  CALCULATE  DYNAMIC  HtAO  AT  THROAT 
10  AM  *  AMACH (P I ,T1 , ANT, Wl ,0 . ) 

PTS  *  »l/<  l.MGAMMA— l.)*AM*AM/2.  )**( GAMMA/ ( GAMMA-1 .  1  ) 

AQ  *  Pl-PTS 
ALOSS  *  AQ*AK 

C  CALCULATE  TOTAL  PRESSURE  AT  NOZZLE  EXIT 
OS  »  PI— ALOSS 


Table  144:  LISTING  FOR  SUBROUTINE  EJ  (CONCLUDED) 


AME  a  AMACH(PS,T1,ANE,W1,0.> 

PESCAL  *  *»E/(  1. ♦(GAMMA-l. )*AME«AME/2.)**(GAMMA/(GAMMA-1.)  ) 

PERR  =  P2-PSSCAL 
IF(IPl.NE.O)  P 1DQT —  PERR/. 01 

100  Nl  =  TA8m*4 

N2»  TAB(2>«-TA8C3>  *-4 
N3*  TAB  f 2  ) 

N4*  TAB (3) 

PRATla  P3/D2 
PRAT2*  P1/P2 

WRAT*  TBLU2(PRAT1,PRAT2,TA3(N1) ,TA8(4) ,TA3 ( N2 ) , 1 , l, -N3, -N4 , N3 , 

C1«W1»SQRT(T1)*WRAT 

C2=Cl/( W1*(T1-T2 ) ) 

B=2.*T2*1./(C2*C2> 

T3*t8>SQRT( B*8— 4.*T2*T2 ) )/2 • 

W3=C 1/SQRT ( T3 ) 

RETURN 

ENO 
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Table  145:  LISTING  FOR  SUBROUTINE  ELAS 


CELAS 

SUBROUTINE  ELAS (NSIOE ,NcNO ,SPHf STH.AA, B.LO.EPI « ETI ,«A ,NU,XR ,PTM ) 


VERSION  2  REVISEO  MARCH  1979 

WRITTEN  BY  -  GS  0ULE3A 

PURPOSE  -  TO  COMPUTE  DATA  ARRAYS  FOR  BOTH  FREE  AND  LOAOED 
ACLS  ELASTIC  TRUNK  SHAPES  (FOR  COMPONENT  TS ) 

METHOD  -  SUBROUTINES  ENOFS,ENDLS,SIOEFS  AND  SIDELS  ARE  CALLED 
BY  QNWT  TO  DETERMINE  TRUNK  CROSS-SECTIONAL  SHAPES. 

OATA  ARRAYS  ARE  FILLED  WITH  CALCULATED  TRUNK  PARAMETERS. 

OUTPUTS  -  DATA  ARRAYS  FOR  VARIABLES  YO , L 1. L2, L3 , VC ,VS . E 1, E3  ANO  ZO 
ARE  STORED  IN  COMMON/STRCH/. 

INPUTS  -  SEE  TS  NOMENCLATURE  FOR  ARGUMENT  LIST 


COMMON/ ELAST/L2.NPHP.NTHP, NTS, YO, LI, PI ,P02, SR , El ,E3 
C0MM0N/C10/IREAD,IWRITE,IDIAG 

COMMON/ STRCH/EYO( 2560 ) ,EL 1 ( 2560 ), EL3 ( 2560 ), EVC ( 2560 ), EVS ( 2560 ) , 

2  EEK2560)  ,££3(2560)  ,  EL2(  2560 ) ,  AZO(  5 12  ) 

DIMENSION  AA( 1),3( 1),L0(1),X(7),R(7) ,P (150 ) , A J ( 7,7) ,BJ( 7,9) ,IP( 8) 
DIMENSION  XR(1),SPT(7),SPR(7),PZL(5) 

DIMENSION  EPI(l),ETim,RA(l),NU(l),SPH(l>,STH(l> 

REAL  L1,L2,L0,NU,L3 
EXTERNAL  ENOFS 
EXTERNAL  ENOLS 
EXTERNAL  SIDEFS 
EXTERNAL  SIDELS 

EQUIVALENCE  ( X ( 1 ) ,0 ) , (X ( 2 ) ,V) , (X ( 4) , A ) , ( X ( 5 ) ,C) , (X ( 7) ,L3 ) 

DATA  PZL/1.,.8,.6, .4, .2/ 

C 

CALL  SECONO(CPT) 

WRITE (6,5 )  CPT 

5  FORMA  T(//,20X,  F10.3.17H  CPU  SECCNOS  ****  > 

PI*3. 14159265 
P02»PI/2. 

C 

NPR=8 

NZ*5 

NPT=8 

ANZ*NZ 

C  **** ********* 

OPT*PTM/(NPTfl) 

0PR*1  ,/NPR 
IP ( 1  )*50 
C 

NTHP*STH( 2 ) 

NTHS»STH(3 ) 

NPHP*SPH(2> 

NPHS=SPH(3 ) 

DO  10  I*1,NPHP 


nno  oor»  o  ooo 


Table  145:  LISTING  FOR  SUBROUTINE  ELAS  (CONTINUED) 


10  P(  U*n=SPH(NPHS*I-*-3> 

NW=11*2*N°HP 
DO  12  I*l,NTHP 
12  P(NW*I>=  STH(NTHS«-I*3) 

NP A*1 1+NPHP 

NPB*1 l-*-2*NPHP+NTHP 

NTS*NPA*NPHP+1 

CALCULATE  SHAPES  FOR  TRUNK  ENO  SECTIONS 
P( 1 ) =0 . 

IF(NEND.EO.O)  GO  TO  501 
DO  500  1*1 »NEND 
SR*XR( I) 

P( Z)*AA(I  I 
P  (  3)  *9  ( I ) 

PI A)=LQ{! ) 

P ( 7>*EPI ( I  ) 

P ( 8)*ETI ( I ) 

P«9)*NUII ) 

Pi  10 ) =RA( I  ) 

DO  15  IQ=1,NPHP 

15  P ( NPA+IQ) *SPH ( 3*NPHS«-NPHP*H>IQ ) 

DO  16  10*1,  NTHP 

16  P(NPB+IQ)  =  STH(3*NTHS-*-NTHP*I-*-IQ) 

SOLVE  FOR  FREE  SHAPE  PARAMETER  DATA 

JC=0 

00  20  J*i,NPT 
0 ( 6) =OPT* J 
X( 1)=.3*P<4) 

X(  2)  *X  (  l)  1 . 

X(3)=2.5 

X(4)=4.*XU) 

X(5»*1.5 

J0=0 

00  20  K*1,NPR 

PR=(NPR_K) *OPR 

P(5)=P(6>*(1.-PR) 

END  ELEMENT  FREE  SHAPE  CALCULATIONS 
NY=0 

GO  TO  102 

101  xm  =  .3*p<4) 

X(2)*X(l)*l. 

X(3>=2.5 

X(  a.)*2. *X(  1) 

X ( 5 )*1  .5 
NY  =1 
J0*0 

102  CALL  QNWTCX,5,7,ENDFS,P,.0C1,IP,JQ,R,RMS,AJ,3J> 
IF(RMS.L£. 0.001)  GO  TO  19 

IB (NY.E9.0  )  GO  TO  101 
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Table  145:  LISTING  FOR  SUBROUTINE  ELAS  (CONTINUED) 


WRITE  (6,13)  RMS,I,J,K,I 

18  FORMAT!/, 2X,F8. 3, 315, 5X,30HC0NVERGENCS  HAS  FAILED  -  ENDFS , 
221H  TRUNK  SECTION  NUMBER, 15) 

19  CONTINUE 
JQ=1 

AZO<NPR*NPT*I  I-1)«-NPR*(  J-1)*K)  =  P  C 1 1  ) 

C 

20  CONTINUE 

SOLVE  FOR  LOAOEO  SHAPE  PARAMETER  OATA 
X(1)*.3*P(4) 

x<2*=  m-i. 

X ( 3)=t .5 
X(  4>»4.*X(  1) 

X ( 5 )=X (4 )— 1 » 

X ( 6 )=1 .5 
X ( 7)=0 • 

00  30  J  =1 ,NPT 
IF(J.EQ.l)  GO  TO  215 
DO  214  M= 1 , 7 

214  X I M)=SPT I M ) 

215  CONTINUE 
P!6)=0PT*J 

C 

JQ=0 

00  30  K=l,NPR 
IFIK.EQ.l)  GO  TO  217 
DO  216  M=l,7 

216  X!M)=SPR(M) 

217  CONTINUE 

PR  =  (NPR-K ) *DPR 
Pf 5)=P!6)*I1.-PR) 

Pll=AZOCNPT*NPR*(I-l)-fNPR*(J— 1)+K) 

00  30  L=l,NZ 
P( ll)=Pll*(NZ-*-l-L)/ANZ 
IF (L.GT.3 )  GO  TO  888 
C 

NV*0 

GO  TO  104 

103  X(l)».3*P!4) 

X!2)*XC1)*1. 

X(3)-2.5 

XI 4)*2,*Xt 1) 

X(5)*XI4)*1. 

X(6)«1.5 

X{7)«.1*P!4)*(L-1) 

NY*1 

J0«0 

104  CALL  QNv«T(X,7,7,EN0LS,P,.05,IP,JQ,R,RMS,AJ,3J) 
IFIRMS.LE.0.05)  GO  TO  42 

IF(NY.EO.O)  GO  TO  103 
WR ITE 1 6 ,41 )  RMS,J,K,L,I 

41  FORMAT!/, 2X,F8. 3, 315, 5X,3CHCONVERGcNCE  HAS  FAILED  -  cNOLS, 
2  21H  TRUNK  SECTION  NUMBER, 15) 

888  IB (L.LT  .(NZ“i ) )  GO  TO  30 
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Table  145:  LISTING  FOR  SUBROUTINE  ELAS  (CONTINUED) 


NN*  L«-NZ*(K-1)+NPR*NZ*(J-1)+NZ*NPR*NPT*(  1-1 ) 

EYO(NN)*  T8LU1(PZL(L)  ,PZL (L-3  )  ,EYO (NN-3) ,  2, 3  ) 

ELI (NN) *  TBLU1( PZL ( L) , PZL (L-3 ), ELI ( NN-3)  ,  2, 3) 

EL2(NN>*  TBLUKPZL(L)  *  PZL  (L-3)  ,EL2  (NN-3) ,  2,3 ) 

EL3(NN)»  TBLUKPZL(L)  ,PZL (L-3 ) , El  3 ' NN-3) , 2, 3) 

EEi(NN)*  TBLUKPZL(L)  ,PZL(L-3  ) , EE1  (NN-3)  ,2,3) 

EE3(NN)«  TBLU1( PZL ( L) , PZL (L-3 ) ,EE3( NN— 3) , 2,3) 

EVC(NN)*  TBLU1 ( PZL ( L) ,PZL (L-3) ,EVC( NN-3) , 2, 3) 

EVS(NN)*  TBLU1  (  PZL (  L)  ,PZL(L-3) , EVS (NN-3) ,  2, 3) 

GO  TO  30 
42  CONTINUE 
C 

IP(L.NE.i)  GO  TO  219 
00  218  M«l,T 

218  SPR(M)*X(M) 

219  CONTINUE 
IF(IL*K).NE.2)  GO  TO  221 
DO  220  M=l,7 

220  $PT(M)*X(M> 

221  CONTINUE 
JQ*l 

NN*  L+NZ*(K-l)+NPR*NZ*( J-l )  ♦NZ*NPR*NPT*( 1-1) 

EYO(NN)  =yo 
EL1(NN)*L1 
EL2 (NN)=L2 
EL3 (NN)*X (7) 

SE1(NN)*E1 
EE3(NN )*E3 
C 

Y2*P( 11 )— C 
Y2*AMIN1(Y2,C) 

YC=Y2/C 

A2=. 5*A/C* (Y2*SQRT  (C*C-Y2*Y2)  -M>C*  ( P02+ASIN ( YC ) ) ) 
X2».5*A*A/C/C*(C*C*(Y2>2.*C/3.)-Y2*Y2*Y2/3.)/A2 
EVC(NN) *A2*(P ( 10 )*Y0— X2) 

C 

Yl«P(3)*P(ll)-V 
Yl*AMINl ( Y1 ,V ) 

YV*Y1/V 

A 1*. 5*Q/V * ( Y 1 *SQRT ( V*V-Y1 *Y 1 ) ♦  V*V* ( P02  *A  S IN ( YV ) ) ) 
Xl«.5*Q*Q*(Yl«-2.*V/3.  -  Yl*Yl*Yl/V/V/3 .) /Al 

Vl*Al*(P<10)*YO+l3»Xl)-P(3)*(P<2)-L3-Y0)*<PU0)*.5*(P(2)*L3«-Y0> ) 
EVS(NN)«V1+L3*P(11)*(P( 10)*YO*.5*L3)*A2*(P( 10  H-Y0-X2)  ♦ 

2  .5*P(2)*P(3)*(P(10)«-2.*P(2)/3.) 

30  CONTINUE 

CALL  SECONO(CPT) 

WRITE (6,5 )  CPT 

CALL  ELWR(I,NPR,NPT,NZ,NEN0,0PT,P(2),P(3),P(4),P(9) ,P(10) ,P(7), 

2  P (8)  ) 

500  CONTINUE 

501  CONTINUE 

C  ******** 

C  SIDE  ELEMENT  FREE  SHAPE  CALCULATIONS 
C 

Ii«NENO+l 
I2*NEN0*N  SIDE 
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38 


39 


40 


Table  145:  LISTING  FOR  SUBROUTINE  ELAS  (CONTINUED) 


IF  CNSIDE.EQ.O) 
00  900  1=11,12 
P ( 2)=AA (I ) 

P( 3)=B( I J 
P(M«LO(X  ) 
P(7)=EPI« I) 

P ( 8)*ETI ( I ) 
P(9)=NUCI ) 

P( 10)=RAI I  ) 


GO  TO  901 


i 


DO  36  10=1 »NPHP 

P(NPA*IQ)=SPHl3+NPHS«-NPHP*I-*IQ) 


1  | 


DO  40  J=1,NPT 
P(6)=DPT*J 
X ( 1)=.3*L0 ( I ) 
X(2)= 2.5 
X ( 3)=1 .5 
JQ=0 

00  40  K=1 »NPR 
PR=CNPR-K)*0PR 
PC  5)=P(6)*C1.-PR) 


NV=0 

GO  TO  106 
X< 1)=.4*P(4) 

XC2)=2.3 
X ( 3 )=1 .3 
NY=l 
J0*0 

CALL  QNWT (X,3,7,SIDEFS,P,.001,IP,JQ,R,RMS,AJ,3J) 

IFCRMS.LE. 0.001)  GO  TO  39 
IF(NY.EO.O)  GO  TO  105 
WRITE(6,38)  RMS,I,J,K,I 

F0RMAT(/»5X,£ 15.4,  315, 5X,  3 1HC0NVERGENCE  HAS  FAILEO  -  SIDEFS, 
2  21H  TRUNK  SECTION  NUMBER, 15) 

CONTINUE 
JO  =  l 

AZ0CNPR*NPT*CI-1)«-NPR*C  J-1)*K)  =  PC  11) 

CONTINUE 


SOLVE  FOR  LOADED  SHAPE  PARAMETER  DATA 


Xi 1)«.3*P14) 
XC2>«2.5 
XC  3)  =  1.5 
XC4)«0. 


314 

315 


00  50  J*1 » NPT 
P  C  6 )=OPT*J 
J0*0 

Ic  C J.EQ.l )  GO  TO  315 
DO  314  M* 1,4 
X  (  M)*SPT( M  ) 

CONTINUE 
00  50  K*1 ,NPR 
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Table  H5:  LISTING  FOR  SUBROUTINE  ELAS  (CONCLUDED) 


IF(K.EQ.l)  GO  TO  317 
DO  316  M=l,4 

316  X ( M)*SPRI M ) 

317  CONTINUE 
PR=(NPR— K )  *OPR 

P<  5)=P(6)*(l.-PR) 

DO  50  L*l,NZ 

P(  11>=AZ01NPT*NPR*(I-1)*NPR*(  J-l ) ♦* ) »( NZ+l-L ) / AN Z 
C 

NY*0 

GO  TO  108 

107  X(1)*.4*P<4> 

X<2>=2.3 

X ( 3)*1 .5 

X(4)=.1*P{4)*(L-1) 

NY*1 

J0=0 

108  CALL  QNWT{X,4,7,SI0ELS,P, .001, IP, JQ,R,RMS,AJ,9J) 

IFfRMS.LE. 0.001 )  GO  TO  43 

IF(NY.EQ.O)  GO  TO  107 
WRITE (6»47)  RMS,I,J»K,I 

47  FORMAT!/, 5X,E15. 4, 315, 5X,31HC0NV=RGENCE  HAS  FAILED  -  SIOELS, 

2  21H  TRUNK  SECTION  NUMBER, 15) 

49  CONTINUE 

IF (L.NE.l )  GO  TO  319 
00  318  M* 1 ,4 

318  SP  R(M ) =X I M ) 

319  CONTINUE 
IF((L-*-K).NE.2>  GO  TO  321 
DO  320  M» 1,4 

320  SPT(M)=XCM) 

321  CONTINUE 
J0=1 

NN»  L+NZ*( K— 1 ) +NPR*NZ*( J-l ) ♦NZ*NPR*NPT*( 1-1 ) 

C 

S3=SIN(X(3) ) 

R2=X(1)*P(6)/PC5) 

V0*R2*S3 

EYO(NN)*YO 

EL  1 (NN)=X ( i)*X (2 ) 

EL2(NN)=R2*X<3> 

EL3(NN)*X { 4) 

5E1(NN>*51 

EE3(NN)*51 

C 

ACV».25*R2*R2*(2.*X(3 >-SIN(2.*X ( 3) ) ) 

EVC(NN)*  ACV 

5VS (NN)=ACV  .25*X(l)*xm*(2.*X(2)  ♦  SIN(2.*X( 2) > ) 

2  *  ( P  ( 1 1)  -X  ( 1 ) )  *(  A  A  ( I  )— YO  )  ♦  X(  1  )*X  (  4)  ♦  .5*P(2)*P(3) 

50  CONTINUE 

CALL  ELWR  ( I  ,NPK,NPT  ,NZ  ,NEN0 ,0PT ,  P(  2  ) ,  ?  ( 3)  ,P(<O,P(9>,P(10),Pt7), 
2  P  ( 9 )  ) 

900  CONTINUE 

901  CONTINUE 
RETURN 
ENO 
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Table  146:  LISTING  FOR  SUBROUTINE  ELFX 


CELFX 

SUBROUTINE  SLPX( TH»PHI » E) 


VERSION  2  REVISEO  MARCH  1979 

WRITTEN  BY  -  G$  OULEBA 

PURPOSE  -  TO  COMPUTE  AN  INCOMPLETE  ELLIPTIC  INTEGRAL  OF  TrtE 
SECOND  KINO 

OUTPUTS  - 

E  VALUE  OF  INTEGRAL 

INPUTS  - 

TH  INPUT  MOOULUS 

PHI  INPUT  PARAMETER 


IF (PHI .LT.O. .OR.TH.LT. 0.)  GO  TO  77 
GO  TO  80 
77  E*C. 

RETURN 

80  CONTINUE 

AK=SIN(TH) 

SI*SIN(PHI> 

CO=COS(PHI) 

AN*l. 

AD*2. 

S1*.5*PHI-.25*SIN<2.*PHI) 

S»PHI-.5*AK*AK*$1 

1*1 

20  1*1+1 

IF (I .GT .20 )  GO  TO  200 

AI*I 

N=2*I 

BN*N 

AN*AN*(2.*Al-3.) 

A0»2.*A0*AI 

S2*i «BN-1.)*S1-C0*SI»*<BN-1.) )/BN 
S1*S2 

DE«AN/AD*$2*AK**BN 

E*E-OE 

IF((0E*0E).LT.l.E-06)  GO  TO  200 
GO  TO  20 
200  RETURN 
END 


418 
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Table  147:  LISTING  FOR  SUBROUTINE  ELIOC 


CELKX 


SUBROUTINE  ELKX1TH  »e) 


REVISED  MARCH  1979 


VERSION  2 


WRITTEN  BY  -  GS  0ULE9A 


PURPOSE  -  TO  COMPUTE  A  COMPLETE  ELLIPTIC  INTEGRAL  OF  THE  SECONO 
KINO 


OUTPUTS 


VALUE  F  INTEGRAL 


INPUTS 


TH  INPUT  MODULUS 


OATA  PI2/1 .570796/ 

IF1TH.LT.0.J  GO  TO  77 

GO  TO  80 

E*0. 

RETURN 

AK*$IN<TH) 

AN*l  • 

AD*2. 

E*PI2*( l.-.25*AK*AK> 

I«1 

I»I*1 

IFd.GT.20)  GO  TO  200 

A I  *1 

N=2*I 

BN»N 

AN»AN*(2.*AI-1.) 

A0»A0*2.*AI 

0E*PI 2*AN*AN/A0/AD/(8N— 1. )*AK**BN 
E«E-OE 

IF( (DE*OE) .LT.l.E-06)  GO  TO  200 

GO  TO  2C 

RETURN 

ENO 


Table  148:  LISTING  FOR  SUBROUTINE  ELWR 


CELWR 

subroutine  elwr< i, npr,npt,nz,nend,dpt, a,3,lq,nu,ra,epi ,sti ) 
c 
c 

C  VERSION  2  REVISED  MARCH  1979 

C 

C  WRITTEN  BY  -  GS  GULES  A 

C 

C  PURPOSE  -  TO  PRINT  COMPUTED  DATA  ARRAYS  FOR  ACLS  ELASTIC 
C  TRUNK  COMPONENT  TS. 

C 

C  OUTPUTS  -  NONE 
C 

C  INPUTS  -  SEE  TS  NOMENCLATURE  FOR  ARGUMENT  LIST  VARI A8LES 

C 

C 

COMMON/STRCH/  EYO  (  2560  )  ,EH  (2560  ) ,  EL3(  2560  )  ,EVC  (  2560)  , 

2  EVS(2560) , EE 1( 2560), EE3< 2560) ,EL2( 2560) ,AZO(512> 

COMMON/CIO/IRE AO , I WRITE , I DI AG 
REAL  LO,NU 
NI=NPR*NPT*(I— 1) 

NPT2=NPT/2 

TP(I.NE.l)  GO  TO  199 
WR ITE ( IWR I TE , 100) 

WRITS( IWRITE»200) 

WRITE(IWRITE,300) 

HR  ITS < I WRITE, +00 > 

199  CONTINUE 

IF(I.GT.NEND)  GO  TO  5 

WRITE! IWR ITE, 101)  I  ,A , 3 ,L0 ,NU, RA , EPI ,ETI 
GO  TO  8 

5  WR ITS ( IWR I TE » 1C3 )  I , A , 8 , LO, NU , EP I ,STI 
8  CONTINUE 

101  FORMAT (///12H***  DATA  SET,I2,23H  ***  TRUNK  £N0  ELEMENT  , 

2  4(4h****)/10X,2HA=,F6.2,  10X,2H8=,F6.2,  10X , 3HL0=, F6 .2 , 

3  8X,3HNU=,F5.2,8X,3HRA=,F6.2,8X,4HEPI=  ,F6.3,8X,4HETI= ,F6.3// 

4  53X,18H#**  ZOFS  ARRAY  ***/) 

103  FORMAT (///,5X,12H***  DATA  SET,I2,24H  ***  TRUNK  SIDE  ELEMENT  , 

2  4(4H****)/10X,2HA=,F6.2,  10X ,2HB=, F6. 2,  10X ,3HL0*,F6.2, 

3  10X,3HNU*,F5.2,10X,4HEPI=,F6.3, 10X,4HETI=,F6.3,  //53X,18H***  ZO 
4FS  ARRAY  ***/) 

C 

C  OUTPUT  ARRAYS 
C 

DO  10  M»1,NPR 
K*NPR>1-M 

WR IT? ( l^R ITE , 105 )  (AZO(NI«-NPR*(  J-l)«-K) ,J*1,NPT) 

10  CONTINUE 
C 

WRITEt I WR ITS, 110) 

DO  20  J*1,NPT2 
PTl»0PT*(2*J-l) 

PT2*PT1^0PT 

wRITE(rw»IT=,H3)  PT1,PT2 
DO  20  M«1,NPR 
KsnPR+1— M 


H*  .  * 


,.aA  i ....  --»*  _ 
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Table  148:  LISTING  FOR  SUBROUTINE  ELWR  (CONTINUED) 


N1*NI*NZ,*NZ*( K— l) ♦NPR^NZ*! 2*J— 2) 

M2  *Nl ♦NPR  *NZ 

WRITE! IWRITE, 115)  ! SYO! L*N1 ) ,L*1 ,NZ) ,  1EY0!L*N2)  ,L=i,NZ) 
20  CONTINUE 
C 

WR ITE! IWR ITS, 120) 

00  30  J«1,NPT2 
PTlaOPT*(2*J-l) 

PT2«»T1>0PT 

WR ITE (I WRITE ,113)  PTl,PT2 

00  30  M*1,NPR 

K*NPR+l-M 

N1»NI*NZ«-NZ*!  K-l ) ♦NPR*NZ* ( 2*J-2 ) 

N2*N1*NPR*NZ 

WR  ITE  ( I  WR  I  TE  »  1 15 )  (ELKL+Nl)  »L*1  »NZ)  t  !EL1!L*N2)  »L  =  1»NZ) 
30  CONTINUE 
C 

WRITE! IWRITE»150) 

DO  50  J*1,NPT2 
PT  l«DPT*(2*J-l) 

PT2*pTl*0PT 

WRITE! I WRITE, 113)  PT1.PT2 
00  50  M*1 , NPR 
K*NPR*1-M 

Nl«NI*NZ-*-NZ*(  K-l ) ♦NPRPNZ* 1 2*J-2 ) 

N2*N1>NPR*NZ 

WRITE ! IWR I TE  r 115 )  1EL2 (L+Nl) , L=1,NZ),  !EL21L<>N2)  ,L=1,NZ) 
50  CONTINUE 

WR  ITE!IWRITE,  135) 

00  40  J*1 »NPT2 
PT l*OPT*! 2*J-1> 

»T2*«>Tl*0PT 

WRITE! IWR ITE, 113)  PT1,PT2 

00  40  M*1 ,NPR 

K*NPR>1-M 

Nl*NI*NZ-*-NZ*!K-l)-*-NPR*NZ*I2*J-2> 

N2*N1*NPR*NZ 

WRITE !  IWRI TE ,  116)  !EL31L*N1) ,L*1,NZ) ,  (EL3!L*N2)  ,L=1,NZ) 
40  CONTINUE 


100  FORMAT! 39H1*****  TRUNK  ELEMENT  SECTION  PROPERTIES  , 12 <6H******) ) 
105  FORMAT! 20X,8F10. 2) 

110  FORMAT ( //54X , 16H***  YO  ARRAY  ***  ) 

11?  F0RMAT1//20X,  12HTRUNK  PRES  *,  F5.2,  47X,  12HTRUNK  PRES  *,  F5.2) 

115  FORMAT (2X,5F11.2«12X,5F11.2) 

116  F0RMAT!2X,F11.0,4FH.2,  12X,FH.0,4FH.2) 

120  FORMA T!///54X,16H**»  LI  ARRAY  ***/> 

135  FORMAT! ///54X ,16H*»*  L3  ARRAY  ***/) 

150  FORMAT! ///5<*X , 16H***  L2  ARRAY  ***/) 

200  FORMAT!//, 6X,67HF0R  ALL  ARRAYS-  ROWS  1-8  CORRESPOND  TO  PR*  0,  1/9, 
2  2/9,  .  .  .  ,  7/8) 

300  FORMAT!/, 6X,75HF0R  ZOFS  ARRAY-  COLUMNS  1-8  CORRESPOND  TO  PT*  PTM*( 
2  1,  2,  3,  .  .  .  ,3)/9  ) 

<.00  FORMAT!/, OX, 75HF0R  ALL  OTHER  ARRAYS-  COLUMNS  1-5  CORRESPOND  TO  ZO/ 
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Table  149:  LISTING  FOR  SUBROUTINE  ENDFS 


CEND^S 

SUBROUTINE  ENDFS { Y ,M,K,R ,P ) 


VERSION  2  REVISED  MARCH  1979 

WRITTEN  BY  -  GS  DULEBA 

PURPOSE  -  TO  COMPUTE  THE  SHAPE  PARAMETERS  FOR  AN  ELASTIC  TRUNK 
f COMPONENT  TS)  END  ELEMENT  IN  THE  FREE  OR  UNLOADED 
CONFIGURATION 

METHOO  -  TRUNK  MERIOIAN  IS  ASSUMED  IN  THE  SHAPE  OF  TWO  ELLIPTICAL 
ARCStINNER  AND  OUTER).  LOADS  IN  THE  HOOP  AND  MERIOIAN 
DIRECTIONS  ARE  CALCULATED  FROM  ASSUMED  SHAPE  USING 
MEMBRANE  THEORY.  HOOP  ANO  MERIOIAN  STRAINS  ARE  FOUNO 
FROM  LOAO/OEFLECTION  CURVES  ANO  MUST  8E  COMPATIBLE 
WITH  ASSUMED  SHAPE  FOR  A  VALID  SOLUTION. 

NOMENCLATURE 

PR  PRESSURE  RATIO  ( PT-PC )/( PT-PA) 

0  MAJOR  AXIS  FOR  OUTER  ELLIPSE 

V  MINOR  AXIS  FOR  OUTER  ELLIPSE 

PHI  SWEPT  ANGLE  FOR  OUTER  ELLIPSE 
A  MAJOR  AXIS  FOR  INNER  ELLIPSE 

C  MINOR  AXIS  FOR  INNER  ELLIPSE 

G2  SWEPT  ANGLE  FOR  INNER  ELLIPSE 


C0MM0N/SLAST/L2,NPH,NTH,NTStY0,Ll,PI,P02.SR»EPl,EP2 
REAL  Ll,L2,L10tL20,NP,NT,NET,NEP 
DIMENSION  Y( 5 ) »R ( 5 ) f P ( 70) 

PR=  P(5)/P(6) 

Q*Y( 1) 

V*Y(2) 

PH1*V(3) 

A«Y(4) 

G2*Y<5) 

C*  PR*A*A*V/Q/0 
SG*SINf G2 ) 

CG»COS IG2 ) 

RE«A*C/SQRT(A*A*CG*CG+C*C*SG*SG> 

YO*R£*SG 
C2*C0S 1 ®Hl ) 

S2*SIN( PHI ) 

RA»Q*V/SQRT(q*Q*C2*C2-*-V*V*S2*S2) 

ZA»RA*S2 

R22*SQRTt  Q*Q* ( Q*Q— ZA*ZA  )/V/V  ♦  ZA*ZA> 

PH2*ASINC  Z A/R2Q ) 

IF(PH1.GT.P02)  PH2»PI-PH2 
CALC'JLAt5  MERIDIAN  LENGTH  L2  FOR  INNER  ELLIPSE 
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Table  149:  LISTING  FOR  SUBROUTINE  ENOFS  (CONTINUED) 


AYC«A*A*lA*A-YO*YO ) 
IFtAYC.LT .0* )  AYCs-AYC 
R2P«SQRT{ AYC/C/C+YO*YO) 
PH  3»  A  S I N  t  Y  0/R  2  P ) 
IF(G2.GT.P02)  PH3*PI-PH3 
Z»0. 

AC«A*A-C*C 

YY«l. 

IFCAC.LT. 0.)  GO  TO  80 
SQAC=YY*SQRT( AC ) 
THE»ASIN( SQAC/A) 


IF (G2.GE.P02 )  GO  TO  76 
W*ASIN(RE*SG/A) 

CALL  E LFX ( THE »  W  .  E  ) 
L2»A*E 
GO  TO  78 
G3*PI-G2 

CALL  ELKX(THE.El) 

W*ASIN(RE*SIN(G3)/A> 

CALL  ELFXCTHE,W,E2) 

L2=A*(2.*E1-E2) 

CONTINUE 

GO  TO  8*. 

CONTINUE 

ACC*YY*SORT(-AC)/C 
THE*ASINC ACC) 
IFCG2.GE.P02)  GO  TO  82 
CALL  ELKX (THE  »E1 ) 
G3=P02— G2 

W=ASIN(RE*SIN1G3 )/C ) 
CALL  ELFX (THE,W,E2) 
L2=C*(  E1-E2) 

GO  TO  84. 

G3=G2-P02 

CALL  ELKX ( THE t El ) 

H*ASINIRE*SIN(G3)/C) 

CALL  ELFX(THE«WtE2> 

L2=C*(Sl*E2) 

CONTINUE 


CALCULATE  MERIDIAN  LENGTH  LI  FOR  OUTER  ELLIPSE 
OVaQ*Q-V*V 
YY«1.  - 

IB (QV.LT.C • )  GO  TO  180 
SQV*YY*SQRT(QV> 

THE=A$IN( SQV/Q ) 

IF(PHI.GT.(2.*PI) )  GO  TO  179 
IF(PH1.GT.(1,5*PI) )  GO  TO  177 
IF(PHl.GT.PI)  GO  TO  175 
IFCPH1 .G5.P02)  GO  TO  176 
W*ASIN(RA*$2/Q) 

CALL  ELFX ( THE t W» E ) 

L1*0*E 
GO  TO  184. 

G3*PHl-PI 


Table  149:  LISTING  FOR  SUBROUTINE  ENDFS  (CONTINUED) 


CALL  ELKX ( THE » El ) 

W=ASIN(RA*SIN(G3)/Q) 

CALL  ELFX ( THE ,W ,  £2  ) 

Ll=Q*(2.*El«-t2) 

GO  TO  184 

176  G3*PI-PH1 

CALL  ELKX ( THE »E1 ) 

W»ASIN(RA*SIN(G3)/Q) 

CALL  ELFX (THE, W,E2) 

L1*Q*(2.*E1-E2) 

GO  TO  184 

177  CONTINUE 
G3»2.*PI-PH1 
CALL  ELKX (THE , El ) 

W*ASIN (RA*SIN(G3)/Q) 

CALL  ELFX ( THE  »W,E2 ) 

L1*Q*(4.*E1-E2) 

GO  TO  104 

179  G3*PHl-2.*PI 
CALL  ELKX ( THE  »E1 ) 

L1*Q*4.*E 1-100. *G3 
GO  TO  134 

180  0 V  V=Y Y*  SO  R  T ( — Q  V ) /V 
THE*ASIN(  QW) 

IF(PHl.GT.PI)  GO  TO  181 
IFIPH1.GE.P02)  GO  TO  182 
CALL  ELKX (THE, El) 

G3*P02-PH 1 

W*ASIN(RA*SIN(G3)/V) 

CALL  ELFX (THE ,W,E2) 

L1*V*( E1-E2 ) 

GO  TO  184 

181  G3»1.5*P1-PH1 
CALL  ELKX (THE, El) 

W*AS1N(RA*SIN(G3)/V) 

CALL  ELFX ( THE ,W , E2 ) 

L1*V*(3.*E1-E2> 

GO  TO  184 

182  G3*PH1-P02 

CALL  ELKX (THE, El) 

W*ASIN(RA*SIN(G3)/V) 

CALL  ELFX ( THE ,W,E2) 

L1*V*(E1'*-E2) 

184  CONTINUE 
C 

B*P(10)-*-V0 

ST1*0. 

£T2»0. 

RRS1*0. 

RRS2*0. 

EP 1=0 . 

EP2»0. 

SR  1*0. 

SR2*C • 

C 

C  DIVIDE  OUTER  ELLIPSE  INTO  J1  FINITE  LENGTHS  AND  COMPUTE 

42  S 
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Table  149:  LISTING  FOR  SUBROUTINE  ENOFS  (CONTINUED) 


LOAOS  ANO  STRAINS  AT  EACH  POINT 
Jl=20.*H/(Ll*L2> 

IFUl.LT.il  Jl  =  l 
IFU1.GT.19)  J1*19 
J2*20-J1 
DT1*PH2/J1 
OT2*PH3/J2 


RTH»P|4>/( 1.+P17) >*SR  ♦  P( 10) 


TH*PI-PH2-.5*DT1 
00  65 
TH»TH+OTl 
STHsSINiTH) 
CTH*COS(TH) 


R2Q=Q*Q/SQRT(Q*Q*STH*STH  V*V*CTH*CTH  1 
R1Q=R2Q*R 2Q*«2Q*V*V/Q/Q/Q/Q 
RR*B+R2Q*STH 
R22*B/STH+R2Q 

NT»P(6>*R22*I l.-R2Q*( B+RR1/2./RR/R1Q) 
NP*P<6 )*R2Q*<  B*RR) /2./RR 
IF (SR .£0.0.)  RTH*RR 
N€P®RR/RTH*(NP“P( 9)*NT) 
NET=(NT-P(9)*NP)*RR/RTH 
EP*R1Q*TBLU1(NEP,P(12> ,P(NPH*12) tl.NPH) 

ET  *R 1Q*T9LUI ( NET » P (NTS  1 »P (NTH+NTS ) » 1 »NTH 1 

SR1=SR1*R1Q 

2= J 

EPl=EPl-*-EP 

ET1=ET1+ET 

RRS1*RRS1*RR 


DIVIDE  INNER  ELLIPSE  INTO  J2  FINITE  LENGTHS  ANO  COMPUTE 
LOAOS  ANO  STRAINS  AT  EACH  POINT 
TH=-.5*DT2*PI 
00  75  J=1,J2 
TH=TH*0T2 
STH*SIN(TH) 

CTHaCOSITH) 


R2P’A*A/SQRT(A*A*STH*STH  C*C*CTH*CTH) 
RR1«R2P*R2P*R2P*C*C/A/A/A/A 
R0=B*R2P*STH 
R0*AMAX1( ROt . 1) 

NT»P(5)*<R2P*3/STH)*(  l.-R2P*(8-*>R0)/2./R0/RRl) 
NP*P( 5 )*R2P*( 8+RO ) /2./R0 
IF1SR.EQ.0.)  RTHaRO 
NEP»R0/RTH*(NP-P(9)*NT) 

NET=(NT-P (9)*NP)*RC/RTH 
SP»RR1*TBLU1(NEP,P(12)  ,P(NPH+12)  ,1,NPH  1 
ET  *RR1*T3LU1 ( NET ♦ P ( NTS ) *P (NTH+NTS 1 » 1 »NTH) 
SR2»SR2*RR 1 


or*  no  no  oo 
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£P2*£P2+EP 
75  RRS2=RRS2*R0 

COMPUTE  AVERAGE  STRAINS 
SP1=6PI/SR1 
SP2=EP2/SR2 
ET1*ET1/SR 1 
ET2*ST2/SR 2 


L10=(1.+P(7))*L1/(1.+EPI) 

L20=( l.+P (7) )*L2/( l.*EP2) 

COMPUTE  RESIDUALS  (<=0.  AT  SOLUTION) 
R(l)=P(4>  -  L10  -L20 
R(2)  =  P 1 2 >  —  ZA  -  YO 
R  ( 3)  =  P(3 )-  V*RA*C2  ♦  C  -  RE*CG 


D2=Pf 2)*L20/P(4) 

002=  P(10)  ♦  .5*02 

001=  P(10)  ♦  02  ♦  .  5*  (P  (2  )— 02 ) 

IF(Z.EQ.O.)  GO  TO  110 

R41=ET1  -  ( (l.*P<8) )*RRS1/001/Z  -  1.) 

GO  TO  115 
110  R4I=0. 

115  IF<Z. 60.20.)  GO  TO  120 

R42=ET2  —  (U.-*-P(8))*RRS2/D02/(20.-Z>  -1.) 
GO  TO  125 
120  R4  2=0 . 

125  CONTINUE 
R ( 4)=R41 
R ( 5 )=R42 
P( 11)=C-RE*CG 
RETURN 
END 
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Table  150:  LISTING  FOR  SUBROUTINE  ENDLS 


CENOLS 

SUBROUTINE  ENDLS ( Y ,M,K,R , P ) 


VERSION  2  REVISED  MARCH  1979 

WRITTEN  BY  -  GS  OULEBA 

PURPOSE  -  TO  COMPUTE  THE  SHAPE  PARAMETERS  FOR  AN  ELASTIC  TRUNK 

(COMPONENT  TS)  END  ELEMENT  IN  THE  LOAOEO  CONFIGURATION 

METHOO  -  TRUNK  MERIDIAN  IS  ASSUMED  IN  THE  SHAPE  OF  TWO  ELLIPTICAL 
ARCS (INNER  AND  OUTER!.  LOADS  IN  THE  HOOP  AND  MERIDIAN 
DIRECTIONS  ARE  CALCULATED  FROM  ASSUMED  SHAPE  USING 
MEMBRANE  THEORY.  HOOP  AND  MERIDIAN  STRAINS  ARE  FOUND 
FROM  LOAD/DEFLECTION  CURVES  AND  MUST  BE  COMPATIBLE 
WITH  ASSUMED  SHAPE  FOR  A  VALID  SOLUTION. 

NOMENCLATURE 

PR  PRESSURE  RATIO  ( PT-PC )/( PT-PA ) 

Q  MAJOR  AXIS  FOR  OUTER  ELLIPSE 

V  MINOR  AXIS  FOR  OUTER  ELLIPSE 

PHI  SWEPT  ANGLE  FOR  OUTER  ELLIPSE 
A  MAJOR  AXIS  FOR  INNER  ELLIPSE 

C  MINOR  AXIS  FOR  INNER  ELLIPSE 

G2  SWEPT  ANGLE  FOR  INNER  ELLIPSE 
L3  MEMBRANE  LENGTH  IN  GROUND  CONTACT 


COMMON/ELAST/L2,NPH,NTH,NTS,YO,L1,PI tP02,SR,EPl,EP3 
REAL  Ll»L2,L3tL10,L20,L30,NP»NT,NET,NEP 
DIMENSION  ANT(2) ,ANP<2) , Y < 7) , R ( 7 ) , P < 70 ) 

C 

PR=  P(5)/P(6) 

Q-Y { 1 ) 

V= Y ( 2 ) 

PH 1*Y (  3 ) 

A=Y(4) 

C=Y ( 5 ) 

G2=Y( 6  > 

L3*Yl 7) 

C 

SG*SIN(G2) 

CG=COS  CG2 ) 

RE  =A*C/$QRT ( A*A*CG*CG+C*C*SG*SG) 

C 

YO=RE*SG 
C2=COS (PHI ) 

S2=SIN(PH1 ) 

C 

RA=Q*V/SQRT(Q*Q*C2*C2*V*V*S2*S2) 

ZA=RA*S2 

R2Q«SaRT(iJ*«*<Q*Q-ZA*ZA)/V/V  ♦  ZA*ZA) 

PH2*ASIN( ZA/R2Q) 

IF (PH1.GT .PC2 )  PH2=PI-PH2 


C 
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C  COMPUTE  MERIDIAN  LENGTH  L2  FOR  INNER  ELLIPSE 
AYC»A*A*( A  *A-YO*YO ) 

IFUYC.LT.O.)  AYCs-AYC 
R2PaSQRTlAYC/C/C>YO*YO) 

PH3*ASINI YO/R2P) 

IFCG2.GT.P02)  PH3=PI-PH3 
DTH».05*<PH2+PH3) 

THO«PI-PH2 

TM»THO-.5*OTH 

Z*0. 

AC*A*A— C*C 
YY*1. 

IF(AC.LT.O.)  GO  TO  80 
SQAC*YY*S0RTIAC) 

THE*ASINC  SQAC/A ) 


IF (G2 .G6.P02)  GO  TO  76 
W*ASIN(RE*SG/A) 

CALL  ELFX(THE,W,6) 

L2=A*E 
GO  TO  78 
76  G3«PI-G2 

CALL  ELKX(THE,E1> 

W*ASIN( RE*SIN (G3)/A ) 

CALL  ELFX (THE,W,£2  ) 

L2»A*(2.*E1-E2> 

78  CONTINUE 
GO  TO  84 
80  CONTINUE 

A  CC*Y Y*SQR  T l -AC ) /C 
THE*ASIN<  ACC) 

IF (G2 .GS.P02 )  GO  TO  82 
CALL  ELKXCTHErSl) 

G3«P02-G2 

W»ASIN(R£*SIN(G3)/C> 

CALL  ELFX(THEfW,E2) 

L2*C*(Sl-E2) 

GO  TO  84 
82  G3«G2-P02 

CALL  ELKX ( THE  »£1 ) 

W«ASIN(RE*SIN(G3)/C) 

CALL  ELFX ( THE»W» E2 ) 

L2*C*( E 1+E2 ) 

84  CONTINUE 
C 

C  COMPUTE  MERIDIAN  LENGTH  LI  FOR  OUTER  ELLIPSE 
QV*Q*Q-V*V 
YY«1. 

IFIQV.LT.O.)  GO  TO  180 
SQV*YY*SORT(OV) 

THE*ASIN( SQV/Q) 

IF(PH1.GT.(2.*PI) )  GO  TO  179 
IF(PH1.GT.(1.5*PI)  )  GO  TO  177 
IF(PHl.GT.PI)  GO  TO  175 
IF(PH1.G£.P02)  GO  TO  176 


1  _  IL  L  . 
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W»ASIN(RA*S2/Q) 

CALL  ELFX { THE  »W»  E ) 

li*q*e 

GO  TO  134 

175  G3«PHl-PI 

CALL  ELKX ( THE  »E1 ) 
W»ASIN(RA*$IN(G3)/Q> 

CALL  ELFX (THE  ,W,£2 ) 
L1»Q*(2.*E1*E2> 

GO  TO  184 

176  G3*PI-PH1 

CALL  ELKX (THE, El) 
W*ASIN(RA*SIN(G3)/Q) 

CALL  ELFX (THE, W,E2> 
L1»Q*(2.*E1-E2) 

GO  TO  184 

177  CONTINUE 
G3=2.*PI-PH1 
CALL  ELKX ( THE  »E1 ) 
W=ASIN(RA*SIN(G3)/Q) 

CALL  ELFX < THE, W, E2 > 
L1*Q*(4.*E1-E2 ) 

GO  TO  184 
179  G3*PH1-2.*PI 

CALL  ELKX (THE, El) 

L 1*0*4. *P 1-100.  *G3 
GO  TO  184 

130  ovv*ty*sort(-ov)/v 

THE*A$ IN( QVV ) 
IF(PHl.GT.PI)  GO  TO  181 
IF(PH1.GE.P02)  GO  TO  182 
CALL  ELKX ( THE , El ) 
G3*P02-PH1 

W=ASIN(RA*SIN(G3)/V) 

CALL  ELFX (THE, W,E2) 
L1*V*(E1-E2) 

GO  TO  184 

181  G3*1.5*PI-PH1 
CALL  ELKX ( THE , El ) 
W*ASIN(RA*SIN(G3)/V) 

CALL  ELFX « THE, W, E2  ) 
L1«V*(3.*E1-E2) 

GO  TO  184 

182  G3»PH1-P02 
CALL  ELKX ( THE  ,E 1 ) 
W*ASIN(RA*SIN(G3)/V) 

CALL  ELFX ( THE , H , £2  ) 
Ll*V*(El+E2) 

184  CONTINUE 
C 

3*b(10)>Y0 

91*8+L3 

ET1*C. 

£T2*0 . 

RR  S1*0 • 

RRS2*0. 
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EP1*0 . 

EP2=0. 

SR  1=0. 

SR2*0. 

C 

C  DIVIDE  OUTER  ELLIPSE  INTO  J1  FINITE  LENGTHS  ANO  COMPUTE 
C  LOADS  ANO  STRAINS  AT  EACH  POINT 
J1*20.*L1/(L1+L2) 

IFUl.LT.l)  Jl*l 
I F ( J1 »GT •  19 )  Jl*19 
J2«20-J1 
0T1«PH2/J1 
0T2»PH3/J2 
C 

RTH»SR*P(4)/(l.fP<7))  ♦  P( 10) 

C 

TH=PI-*»H2-.5*0T1 

C 

DO  65  J=1,J1 

TH*TH+0T1 

STH*SIN(TH) 

CTH*COS(TH) 

C 

R2Q*Q*Q/SQRT(Q*Q*STH*STH  ♦  V*V*CTH*CTH ) 

R1Q=R2Q*R2Q*R2Q*V*V/Q/Q/Q/Q 

RR=91+R2Q*STH 

NT  *P ( 6 )*( R2Q+8 1/STH )* { 1«-R2Q*( Bl+RR ) /2 ./RR/R1Q )' 

NP  =P ( 6 )  *R  2 Q*<  B  1*R R  >  /2  . /RR 
IF ( SR . EQ. 0 . )  RTH=RR  7 
NEP«RR/RTH*(NP-P(9)*NT> 

NET*(NT-P { 9)*NP)*RR/RTH 
EP*R10*TBLUI( NEP  t  P ( 12 ) t P ( NPH+12 ) » 1 »NPH ) 

ET  =RIQ*TBLU1 ( NET »P (NTS ) *P (NTH+NTS) ?  1  *NTH) 

SR1*SR1+R1Q 

ANP(I)*EP/RIQ 

ANT(1)»ET/R10 

Z»J 

EP1*EP1*EP 
ETl*ETl«-ET 
65  RRS1*RRS1+RR 
C 

C  DIVIDE  INNER  ELLIPSE  INTO  J2  FINITE  LENGTHS  ANO  COMPUTE 
C  LOADS  ANO  STRAINS  AT  EACH  POINT 
TH«PI-.5*OT2 
DO  75  J*1,J2 
TH*TH*0T2 
STH«SIN(TH> 

CTH»COS(TH) 

C 

R2°*A*A/SQRT( A*A*STH*STH  «•  C*C*CTH*CTH) 

RR  i=R2P*R2P“R2P*C*C/A/A/A/A 

®0»B+R2P*STH 

RO»AMAXl( . l«RO> 

NT=P( 5)*(R2P*9/STH)*< i.-R2P*( 9*R0)/2./R0/RRl) 

Np*9( 5 ) *R2P*( 9*RO ) /2./RO 
Ic (SR.EO.O.  )  RTH»RO 
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Table  150:  LISTING  FOR  SUBROUTINE  ENDLS  (CONCLUDED) 


NEP*RQ/RTH*(NP-P(9)*NT) 

NE T= ( NT-P ( 9 ) *N P ) *R O/R TH 
5P=RR1*T3LU1(NEP,P(12>  ,P(NPH«-12)  ,1,NPH) 
ST=RR1*T3LU1 ( NET , P ( NTS ) , P (NTH+NTS ) , 1 »NTH) 
SR2=SR2*-RR1 
C 

IF(J.GT.l)  GO  TO  70 
ANP<2)*EP/RR1 
ANT(2)=ET/RR1 
70  CONTINUE 

ET2=ET2*ET 
EP2*EP2*EP 
75  RRS2*RRS2*R0 
C 

C  COMPUTE  AVERAGE  STRAINS 
EP1=EP1/SR1 
EP2=EP2/SR2 

EP3*  .5*(ANP<1)+ANP(2) ) 

ST3*  .5*<ANT(i)+ANT<2) > 

ET  1=(ET1*0T1+L3*ET3)/(SR1*0T1+L3) 
ET2*ET2/SR2 


L10*  (l.+P(7) )*L1/(1.*EP1) 

L20*  C 1  P  ( 7 >  )*L2/(1»+EP2) 

L30*  <1.+P(7))*L3/(1.*EP3) 

COMPUTE  RESIDUALS  (=0.  AT  SOLUTION) 
R  (  1>  =  P(4)  -  L10  -  L20  -  L30 
R ( 2 ) =  P ( 2 ) -L3  -  YO  -  ZA 
R<3>  =  P (3 )—  V+RA*C2  *  C  -  RE*CG 


02*  L20*P(2)/P<4) 

002*  P(IO)  4-  .5*02 

OOI=PflO)  ♦  02  «•  •5*P(2)/P(4)*{P (4) —L20) 

IF (Z.EQ.O.)  GO  TO  110 

R41=ET1  -  ( ( 1 .*P ( 8  ) )*RRS1/D01/Z  -  1.) 

GO  TO  115 
110  R41*0. 

115  IF (Z.EQ.20 • )  GO  TO  120 

R42*6T2  -  ( (l.+P(8))*RRS2/002/(20.-Z)  -  1.) 
GO  TO  125 
120  R42*0. 

125  CONTINUE 
S(<-)*R4l 
R ( 5 )*R42 

R(6)»C-®R*A*A*V/0/0*( .25*L3*9)/( ,75*L3-*-B> 

R ( 7)*P( 11 )  -  C  ♦  RE*CG 

RETURN 

END 
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Table  151:  LISTING  FOR  SUBROUTINE  ES 


CES 

SUBROUTINE  ES(TSR,TFN,TFP,T3T,TBP,TP0,TH,THD,ITH,FX,FZ,TY, 

1  F$P,FST,PPU,TPU,W2,T2,TCON,THR, AMN , GAMX ,GAMZ ,XO , ZO » 

2  PAM,TAM,P2,FAN,8LD,FX1) 

VERSION  3*  SEPT.  9  1977 

PURPOSE  INPLANE,  FIRST  ORDER  LAG  ENGINE  MOOEL  INCLUDING  BLEED  AIR 
ANO  FAN  AIR  CALCULATIONS 

METHOD  FIRST  ORDER  LAG  FOLLOWED  BY  BODY  AXIS  TRANSFORMATION  AND 
CALCULATION  OF  PRESSURES  ANO  TEMPERATURES  AT  BLEED  PORT 
AND  AT  FAN  STAGE  ( FUNCTIONS  OF  THRUST  AND  MACH  NO. > 

CALL  SEQUENCE 
*****  TABLES  ***** 

TSR  -ENGINE  SPEED  AS  A  FUNCTION  OF  MACH  NO.  ANO 

INSTANTANEOUS  THRUST  (TWO  DIMENSIONAL  TABLE) 

TFN  -TEMPERATURE  RISE  FAN-INLET  TO  OUTLET  AS  A 

FUNCTION  OF  CORRECTED  ENG.  SPEED (ONE  DIM.  TABLE) 

TFP  -PRESSURE  RATIO  FAN  OUTLET  TO  INLET  AS  A  FUNCTION 

OF  CORRECTED  ENG.  SPESD(ONE  DIM.  TABLE) 

TBT  -TEMPERATURE  RISE  COMPRESSOR-INLET  TO  OUTLET  AS  A 

FUNCTION  OF  CORRECTED  ENG.  SPEED ( ONE  DIM.  TABLE) 

T3P  -PRESSURE  RATIO  COMPRESSOR  OUTLET  TO  INLET  AS  A 

FUNCTION  OF  CORRECTED  ENG.  SPEEO(ONE  DIM.  TABLE) 

TPO  -  CORRECTED  BLEED  FLOW  RATE  AS  A  FUNCTION  OF 

ENGINE  PORT  PRESSURE  DROP  (ONE  DIM.  TABLE) 

*****  OUTPUTS  ***** 

THtTHO, ITH  -THRUST, THRUST  RATE,  INT.  CONTROL,  LBS 

FX, FZ  -X  ANO  Z  AXIS  FORCES,  LBS 

TY  -Y  AXIS  TORQUE (PITCHING  MOMENT),  FT-LBS 

FSP  -FAN  STAGE  DELIVERY  PRESSURE  (PSIA) 

FST  -FAN  STAGE  DELIVERY  TEMPERATURE  (DEG  RANKING) 

PPU  -BLEED  PRESSURE  UPSTREAM  OF  THE  PORT  (PSIA) 

TPU  -BLEED  TEMPERATURE  UPSTREAM  OF  THE  PORT  (DEG  RANKING) 

W2  -BLEED  FLOW  RATE  DOWNSTREAM  OF  THE  PORT  (L3/MIN)NO  2 

T2  -BLEED  TEMPERATURE  DOWNSTREAM  OF  THE  PORT (DEG  RANKING ) 

*****  INPUTS  ****** 

TCON  -ENGINE  TIME  CONST ATN,  SEC. 

THR  -REQUESTED  (INPUT)  THRUST,  LBS 

AMN  -MACH  NUMBER 

GAMX»GAMZ  -X,Z  DIRECTION  COSINES 

XO,ZO  -THRUST  LOCATION  COMPONENTS  BROM  C.G.,  FT 

PAM  -AMBIENT  PRESSURE  (PSIA) 

TAM  -AMBIENT  TEMPERATURE  (OEGREES  RANKINE) 

P2  -  BLEED  PRESSURE  ONSTRM  OF  THE  POPT(PSIA)NO  2 

FAN  -INDICATOR  FUNCTION  FOR  ENGINE  ban  AIR  CALCULATIONS 

0*  TO  BE  INCLUDED 
1*  TO  BE  EXCLUDED 

3L0  -INDICATOR  FUNCTION  FOR  ENGINE  BLEED  AIR  CALCULATION 

0*  TO  BE  INCLUDED 
1*  TO  BE  EXCLUOEO 

FXl  -EXTERNAL  FORCE  X-AXI S( THRUST  REDUCTION  DUE  TO 
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Table  151:  LISTING  FOR  SUBROUTINE  ES  (CONTINUED) 


USE  OF  A  THRUSTER  )  LBS 

WRITTEN  3Y  MAHINOER  WAHl  MAY  1977 

DIMENSION  T$R(t)*TFN(l)»  TFP( 1 )  »  TBT ( 1 ) ,T3P ( 1 > ,TPO( 1 > 

C  INITIALIZATION 

IF(AMN.EQ.  .99999)  AMN*0. 

IF  (PAM.EQ •  .99999)  PAM=14.7 
IF (TAM .EQ •  .99999)  TAM=459. 

IF (FX1.EQ.  .99999)  FX1=0. 

I F (TCON.NE .0. )  GO  TO  10 
TH=  THR 
GO  TO  20 

10  IF(ITH.NE.O)THO=  (THR  -  TH)/TCON 
TH  »  TH  FX1 

C  BODY  AXIS  TRANSOFRMATION 
20  FX=  TH*GAMX 
FZ  *  TH*GAMZ 
TY  a  Z0*FX-X0*FZ 
C 

IF (BLO.NE .0.  .AND.  FAN.NE.O.)  GO  TO  70 
C  RAM  RISE/COMPRESSOR  INLET  CONDITIONS 
PT  a  PAM* ( 1+  ,2*AMN*AMN)**3.5 
TT  a  TAM*( 1*  ,2*AMN*AMN> 

C  CORRECTED  ENGINE  SPEED  RATIO 
Nl  a  TSR ( 3  )+4 
N2  a  TSR<2  )-TSR<3l+4 
N3  a  TSRf 2  ) 

N4  a  TSR( 3 ) 

SPOa  TBLU2 (AMNtTHfTSR(Nl) fTSR(4) ,TSR (N2) t 1, 1.-N3 »-N4,N3 ,N4) 
ENCa  SPD*SQRT(519./TT) 

IF (FAN.NE.O.)  GO  TO  60 

C  FAN  STAGE  DELIVERY  TEMPERATURE  AND  PRESSURE 
NX  a  TFN( 2  ) 

DTFs  T3LU 1 ( ENC  »TFN ( 4) ,TFN (NX+4) , 1,-NX) 

FSTa  TT*( 1 •♦OTF) 

NX  *  TFP( 2 ) 

FPRa  TBLU1  (  ENC  »TFP (  4)  ,.TFP  (  NX+4)  ,  1  ,-NX) 

FSPa  PT*FPR 
60  CONTINUE 

IF{ BLO.NE . 0. )  GO  TO  70 

C  BLEED  AIR  PRESSURE  ANO  TEMPERATURE  CALCULATIONS 
C  PRESSURE  AND  TEMPERATURE  UPSTREAM  OF  BLEED  PORT 
NX  a  TBTt  2 ) 

OT  a  T3LU1 ( ENC t TBT (4) ,TBT(NX+A) * i»-NX) 

TPUa  TT*(1.*DT) 

NX  a  TBP( 2 ) 

CPR  »  T3LUl(ENCtTBP(4) ,TBP(NX>A) ,1,-NX) 

PPU  »  PT*CPR 
PR AT*PPU/P? 

NX  *  TP0(2> 

WCRa  T3LUl(PRATtTP0(4),TP0(NX*4) ,l,-NX) 

C  RL0WRAT5  AND  TEMPERATURE  DOWNSTREAM  OF  3LES0  PORT 
W2  a  WCR*°PU/SQRT(TPU) 

T2«  TPU 
70  CONTINUE 
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Table  152:  LISTING  FOR  SUBROUTINE  ETB2 


CETB2 

SUBROUTINE  ST32< I ,?R,PT,OPTtZ» 


VERSION  2  REVISEO  MARCH  1979 

WRITTEN  BY  -  GS  0ULE3A 

PURPOSE  -  TO  PROVIDE  A  TWO  DIMENSIONAL  TABLE  LOOK-UP 
CAPABILITY  FOR  ELASTIC  TRUNK  COMPONENT  TS. 

OUTPUTS  - 

Z  INTERPOLATED  VARIABLE 

INPUTS  - 

I  TRUNK  ELEMENT  SET  NUMBER 

PR  PRESSURE  RATIO 
OX  TRUNK  PRESSURE 

DPT  SPACING  OF  TRUNK  PRESSURE  OATA  POINTS 


COMMON/STRCH/DUM ( 20480 ) ,AZO ( 5 12 ) 

OATA  NPR/B/,NPT/8/,NN/64/ 

NI=NN*(I-1 > 

pk*pr*npr 

KP*PK 

KP*MAXO(OtMINO(6,KP) ) 

DKP=PK-KP 

AOKPsABS(OKP) 

IF(AOKP.GT.i. >  DKP=SIGNI 1 . , DKP ) * ( 1 . ♦ .02*< ADKP-1 . >> 

KlsNPR-KP 

K2=K1— 1 

PJ*PT/OPT 
Pj.AMAXltO. ,PJ) 

Jl*PJ 

JlaMAXO lltMIN0(7»Jl)) 

J2*J1*1 

NKl»Nl+NPR*( Jl-l) 

N1»NK1-*X1 

N2«NK1*K2 

G1*AZ0(N1)  ♦  (AZ0(N2)-AZ0(N1) )*DKP 
NKlaNI>NPR-*(  J2-1) 

NI=NK1*K1 

N2*NKl+<2 

G2»AZ0(Nl)  ♦  (AZ0(N2)-AZ0(N1 ) )*0KP 
Z*Gl  ♦  (G2-G1 )•( P J-Jl ) 

RETURN 

5M0 
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Table  153:  LISTING  FOR  SUBROUTINE  ETB3 


CET33 

SUBROUTINE  ET33U.PR,PT,DPT,ZR,StF) 

. 


VERSION 

WRITTEN 

PURPOSE 


2  REVISED  MARCH  1979 

BY  -  GS  OULEBA 

! 

-  TO  PROVIDE  A  THREE  OIMENSIONAL  TABLE  LCOK-UP 
CAPABILITY  FOR  ELASTIC  TRUNK  COMPONENT  TS. 


OUTPUTS  - 

F  INTERPOLATED  VARIABLE 


INPUTS  - 

I  TRUNK  ELEMENT  SET  NUMBER 

PR  PRESSURE  RATIO 

PT  TRUNK  PRESSURE 

OPT  SPACING  OF  TRUNK  PRESSURE  DATA  POINTS 

ZR  RATIO  OF  LOADED  MEMBRANE  HEIGHT  TO  FREE  HEIGHT  : 

E  DATA  ARRAY 


DIMENSION  E(l) 

OATA  NPR/8/tNPT/8/tNZ/5/,NN/320/,NJ/40/ 

C 

NI*NN*(I-l) 

ZL=ZR*NZ-1. 

ZL*AMAXltZL,-l.) 

LZ*ZL 

LZ*MAXO(OtMINO(*tLZ)> 

L 1 =NZ -LZ 
L2=L1-1 
C 

PK*PR*NPR 

KP*PK 

KP»MAXC (0 1 MINO (6 tKP ) ) 

DK P=PK-KP 
ADKP*ABSI DKP) 

IF  ( AOKP*GT  •  )  DKPaSIGNt  l.,0KP)*d.f.02*(  AOKP-1.  >) 

K1»NPR-KP 
K2*K1— 1 
C 

PJ*PT/DPT 

PJ»AMAX1(0.»PJ) 

J1*PJ 

Jl«MAX0(l,MIN0(7f J1  )> 

J2*Jl*l 

C 

OZL*ZL-LZ 

NLI*NI*NJ*<J1-1)*NZ*(K1-1)*L1 

NL2*NL1-1 

NL2*MAX0(NL2,1) 

Cl*E(NLl)  ♦  <E<NL2)-€(NLl >>*DZL 
C 

NLl*NI*NJ*( Jl-l)*NZ*(K2-l)*Ll 


s 


H 


i 


•  l  * 
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Table  153:  LISTING  FOR  SUBROUTINE  ETB3  (CONCLUDED) 


NL2*NLl -l 
NL2=MAX0(  NL2» 1 ) 

C2=E ( NLl )  ♦  <E(NL2)-5(NL1 ))*OZL 
C 

NL1*N  I+NJ-*!  J2-1)*NZ*(K1-1>*L1 
NL  2=NL 1-1 
ML  2=MAXO( ML2  *  1 ) 

C3=E(NL1)  ♦  <E(NL2)-E(NL1 ) >*OZL 
C 

NL1=NI>NJ*< J2-1)*NZ*(K2-1)*L1 

NL2=NL1-1 

NL2=HAXO(ML2,l) 

C4*E(NLl>  ♦  (  ECNL2  >— £(NL1 ) )*DZL 
C 

G1=C1  ♦  (C2-Cl)*OKP 
G2=C3  <C4-C3)*0K? 

F=G1  ♦  (G2-G1 )»(P J-Jl ) 

RETURN 

ENO 
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Table  154:  LISTING  FOR  SUBROUTINE  FO 


CFO 

SUBROUTINE  ?D <U,UO , IU , V, VO, IV, P, PO, IP, R,RD, IR ,ROL,ROLO, 

1  IROL  » YAW , YAWO,  IYAW.XD.YD.Z.ZD.IZ  »PQQT  .ROOT ,UOOT  »VOOT  ,TX ,TZ » 

2  XXI, ZZI, XZI, PIT) 

VERSION  2.  JULY  1977 

PURPOSE  FOUR  OEGREE  OF  FREEDOM  RIGIO  BOOY  EQUATIONS  OF  MOTION 
METHOD  EULER  ANGLES 
CALL  SEQUENCE 
*****  OUTPUTS  ***** 

LINEAR  VELOCITIES  —  BOOY  AXES 

U, UD,IU  -  X  AXIS  LINEAR  VELOCITY. ACCEL, INT  CONTROL,  FT/SEC 

V. VO.IV  -  Y  AXIS  LINEAR  VELOCITY, ACCEL, INT  CONTROL,  FT/SEC 

ANGULAR  VELOCITIES  —  BOOY  AXES 

P,PO,IP  -  X  AXIS  ANGULAR  VELOCITY, ACCEL, INT  CONTROL,  DEG/SEC 

R,RO,IR  -  Z  AXIS  ANGULAR  VELOC ITY .ACCEL, INT  CONTROL,  OEG/SEC 

EULER  ANGLES  —  EARTH  TO  BOOY  -  YAW  ,PI  TCH ,ROLL 
ROL.ROLO, I ROL  -  ROLL  ANGLE .RATE , INT  CONTROL, DEG 
YA W.YAWD, I YAW  -  YAW  ANGLE .RATE, INT  CONTROL, DEG 
POSITION  —  EARTH  AXES 

XO  -  X  AXIS  LINEAR  VELOCITY,  FT/SEC 

YD  -  Y  AXIS  LINEAR  VELOCITY,  FT/SEC 

Z»ZD, IZ  -Z  AXIS  POSITION( ALT) .VELOCITY, INT  CONTROL, FT 

ANGULAR  ACCELERATION  —  BOOY  AXES 

POOT  -  X  AXIS  ANGULAR  ACCELERATION,  0EG/SEC2 

ROOT  -  Z  AXIS  ANGULAR  ACCELERATION,  OEG/SEC2 

*****  INPUTS  ***** 

LINEAR  ACCELERATION  —  BOOY  AXES 

UDQT  -  X  AXIS  LINEAR  ACCELERATION,  FT/SEC2 

VOOT  -  Y  AXIS  LINEAR  ACCELERATION,  FT/SEC2 

MOMENTS 

TX.TZ  -  X,Z  AXIS  TO RQUES f  FTLBS 

MOMENTS  OF  INERTIA 

XXI, ZZI  -  X,Z  AXIS  MOMENTS  OF  INERTIA,  SLUG-FT2 

XZI  -  PROOUCT  OF  INERTIA,  SLUG-FTZ 

EULER  ANGLE  —  EARTH  TO  BOOY  -  PITCH 
PIT  -  PITCH  ANGLE, OEG 

WRITTEN  8Y  M.K.  WAHI  MARCH  1977 

DATA  RPO, OPR  /. 01745329,57. 29578/ 

CP*COS(PI T*RPO) 

SP»SIN(PIT*RPO) 

CR=COS(ROL*RPO> 

SR*SIN(ROL*RPD> 

C  ****************  LINEAR  VELOCITY  EQUATIONS  *************** 

IF  (IU.NE.O)UO=UOOT 
IP(IV.NE.0)VD*V00T 

c  ****************  ANGULAR  velocity  equations  ************* 
IF(XZI.NE.O..AND.XZI.NE.  .99999)  GO  TO  100 
IF(IP.NE.O)PO«(TX/XXI )*OPR 
IF ( IR.NE.O)RO*(TZ/ZZI )*OPR 
50  TO  160 

100  IF(IP*IR.EQ.O)GO  TO  160 
T5M*ZZI/XZI 
OIV»XXI*TSM— XZI 

IF (IP.NE.O)PO®( (TX*TSM^TZ  >/DIV)*DPR 
T5M*XXI/X  Z I 
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Table  154:  LISTING  FOR  SUBROUTINE  FD  (CONCLUDED) 


IF(IR.NE.O)RO*((TX+TZ*T£M)/DIV)*DPR 
C  ****************  EULER  ANGLE  EQUATIONS  ************* 

160  IF(CP.NE.O.)PSIO=R*CR/CP 
IF  f  I  YAW  »NE  »0  >  YA WO*  PS  ID 
IF(IROL.NE.O)ROLD=P-*-PSID*SP 
****************  POSITION  EQUATIONS  ************** 

-  TEST  IF  X  AND  Y  (LATITUDE  AND  LONGITUDE)  ARE  30TH  FROZEN 

SPSR=SP*SR 
CY=COS (YAWARPD) 

SY=$IN(YAW*RPO) 

XD=C>'*CP*U+(-SY*CR-t-CY*SPSR)*V 
YD=SY*CP*U+  ( CY*CR*  SY*SP  SR )  *V 
IF ( IZ .NE .0 ) ZD=SP*U-CP*SR*V 
C  ****************  ANGULAR  ACCELERATIONS ( FOR  OUTPUT  PURPOSES  ONLY)  **** 
PDOT=PD 
RDOT=RD 
RETURN 
END 
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Table  155:  LISTING  FOR  SUBROUTINE  FG 


CFG 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  FG < FO,FODOT, IFO,F IN ,G 1.MX1, MN1 ,G2,MX2 ,MN2 ) 

REAL  MX1,MN1,MX2»MN2 
VERSION  1-  SEPT.l»l977 

PURPOSE  -  SIMULATION  OF  A  SIMPLE  GENERAL  PURPOSE  FLIGHT 
ANO  GROUNO  CONTROLLER  FOR  AIRCRAFT 

METHOO  -  SEE  COOING 

CALL  SEQUENCE 
*****  OUTPUTS  ***** 

FC  -CONTROLLER  OUTPUT 

FODOT  -OUTPUT  DERIVATIVE 

IFO  -INTEGRATOR  CONTROL 

*****  INPUTS  ***** 

FIN  -COMMANO  SIGNAL 

G1  -GAIN (SLOPE)  FOR  COMMANO  SIGNAL  INPUT 

MX  1  -UPPER  LIMIT  OF  SATURATION  ON  COMMAND  SIGNAL  INPUT 

MN1  -LOWER  LIMIT  OF  SATURATION  ON  COMMANO  SIGNAL  INPUT 

G2  -LOOP  GAIN(SLOPE)  FOR  THE  INTEGRATOR 

MX2  -UPPER  LIMIT  OF  SATURATION  ON  OUTPUT 

MN2  -LOWER  LIMIT  OF  SATURATION  ON  OUTPUT 

WRITTEN  BY  MAHINOER  WAHI  SEPT  1977 

XI*  G1*FIN 

IF(Xl.GT.MXl)  XI*  MX1*.01*(FIN-MX1) 

IF(X1 .LT.MNI)  XI*  MN1+  »0 1*(F IN— MN I ) 

X2=  Xl-FO 
X3=  G2*X2 

IF (X3.GT.MX2)  X3=  MX2*.OI*( X2-MX2/G2 ) 

IF (X3 .LT.MN2 )  X3=  MN2+ .0 1* ( X2-MN2/G2 ) 

IR(IFO.NE.O)  FOOOT *  X3 

RETURN 

END 


441 


ouuuuouooouooouuouooooooouoouooououoo 


Table  156:  LISTING  FOR  SUBROUTINE  FH 


CFH 

SUBROUTINE  FH (CF,CR»T2  , WC  * WCDOT  * IWC  *  P 1 ,P 1DOT « IP1,T1,W1, 

I  P2»PRR  »PRS»TC ) 

VERSION  2.  SEPT.  12,  1977 

INCLUOES  A  TIME  CONSTANT 

PURPOSE  -  FAN  MOOEL  WITH  TRASITION  BETWEEN  STALL  ANO  RECOVERY 

METHOD  IT  IS  ASSUMED  THAT  TRANSITION  FROM  NROMAL  TO  STALLEO 
OPERATION  OCCURS  WHEN  THE  PRESSURE  RATIO  EXCEEOS  THE 
STALL  PRESSURE  RATIO  ANO  THAT  TRANSITION  FROM  STALLED 
TO  NORMAL  OCCURS  WHEN  PRESSURE  RATIO  FALLS  BELOW  A 
REVERSE  PRESSURE  RATIO. 

CALL  SGOUENCE 

*****  tables  ***** 

CF  -FAN  FLOW  RATE(FORWARD)  AS  A  FUNCTION  OF  FAN 

PRESSURE  RATIO,  ONE  DIMENSIONAL  TABEL 
CR  -FAN  FLOW  RATE (REVERSE)  AS  A  FUNCTION  OF  FAN 

PRESSURE  RATIO,  ONE  DIMENSIONAL  TABLE 
*****  OUTPUTS  ***** 

we  -fan  flow  rate,  lb/min 

WCOOT  -fan  flow  rate  derivative,  lb/min/sec 

IWC  -integrator  control  for  wc 

PI  -INLET  PRESSURE!  PORT  N0.D,PSIA 

PI  DOT  -INLET  PRESSURE  DERIVATIVE ,PSI A/SEC 

IP1  -INTEGRATOR  CONTROL  ON  PI 

T2  -OUTLET  TEMPERATURE ( PORT  NO.2),0GGR 

*****  INPUTS  ***** 

P 2  -OUTLET  PRESSUREtPORT  NO. 2)  ,  PSIA 

W1  -INLET  FLOWRATE ( PORT  NO. 1), LB/MIN 

T1  -INLET  TEMPERATURE ( PORT  N0.1),D6GR 

PRR  -PRESSURE  RATIO  BELOW  WHICH  TRANSITION  FROM 

STALLED  TO  NORMAL.  OPERATION  OCCURS 
PR S  -PRESSURE  RATIO  ABOVE  WHICH  TRANSITION  FROM 
NORMAL  TO  STALLED  OPERATION  OCCURS 
TC  -FAN  TIME  CONSTANT 


WRITTEN  BY  MAHINDER  WAHI  AND  ADAM  LLOYD  SEPT.  1977 

DIMENSION  CF ( 1 ) , CR ( I ) 

T2*T1 

C  CALCULATE  FAN  PRESSURE  RATIO 
P1CAL*W1*SQRT(T1)/WC 
IF ( IP  1 .NE .0 )  P1D0T*  ( P 1CAL-P1 ) /. 01 
PR  *  P2/B 1 
NX*  CF { 2) 

C  CALCULATE  FORWARD  AND  REVERSE  FLOW  RATE  BY  TABLE  LOOK  UP 
WCF*  T3LU1  (  PR  ,CF  (  A. )  ,CF (  NX* A )  ,  1 ,  —  NX  ) 

NX*  CR ( 2  ) 

WC R*  T3LU l ( °R , CR ( A) ,CR ( NX+A ) , 1 , —NX ) 

C  LOGIC  FOR  DECIDING  NORMAL ( FORWA RD )  OR  STALL  ED (R EVERSc >  OPERATION 
IF(WC.GT.WCF)  CR ( 50  )=  1 
IF(WC.LT.WCR)  CR ( 5 0 ) =-l 
Ie( PR .GT . PRS )  CR(5C)*-1 
rF(OR.LT.PRR)  CR ( 50)*  1 
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Table  156:  LISTING  FOR  SUBROUTINE  FH  (CONCLUDED) 


I F (CR (50) )  20,20,10 
1C  WCCAL*  WCF 
GO  TO  30 
20  WCCAL*  WCR 

30  IF(IWC.NE.O)  WCOOT*  ( WCCAL-WC )/TC 
RETURN 
ENO 
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Table  157:  LISTING  FOR  SUBROUTINE  FL 


CFL 

SUBROUTINE  FL(PAM,TAM,PRM,TRM,ALT,AMN,DAY) 

PURPOSE  -  TO  CALCULATE  AMBIENT  DATA  GIVEN  ALTITUDE 
AND  MACH  NUMBER. 


METHOD  -  USES  CLIMATIC  DATA  FROM  MIL-STD-21CA 

MIL— STD— 2 10B 
US  STANDARD  ATMOSPHERE 
DEFAULTS  TO  US  STANDARD  ATMOSPHERE 

WRITTEN  8 Y  -  AOAM  LLOYD  LATEST  REVISION  DEC  76 

MODIFIED  FOR  ACLS  BY  -  PAUL  R.  PERKINS  DEC. 78 


LIMITATIONS  -  ALTITUOES  OF  O-IOOOOO  FT 


INPUT/OUTPUT  LIST 


PAM 

AMBIENT  PRESSURE 

PSIA 

OUTPUT 

VAR 

TAM 

AMBIENT  TEMPERATURE 

DEGR 

OUTPUT 

VAR 

PRM 

RAM  PRESSURE  (100P/C 

RECOVERY) 

PSIA 

OUTPUT 

VAR 

TRM 

RAM  TEMPERATURE  UOOP/C 

RECOVERY) 

DEGR 

OUTPUT 

VAR 

alt 

altitude 

FT 

INPUT 

VAR 

AMN 

MACH  NUMBER 

— 

INPUT 

VAR 

DAY 

CODE  DESIGNATING  OAY 

— 

INPUT  1 

PARAM 

*1  \  MIL-STD-210B  OPERATIONAL  ( 1P/C  RISK)  HOT  DAY 
=2  ^IL- STD- 2 10 A  HOT  DAY 

=3  MIL-ST0-210A  TROPICAL  DAY 

=4  USXSTANDARD  ATMOSHPERE  (1962) 

*5  MIL-STO— 210A  POLAR  DAY 

=6  MIL-STO— 2 LOA  COLD  DAY 

=7  MIL— STD— 2108  OPERATIONAL  ( 1P/C  RISK)  COLO  DAY 

THE  FOLLOWING  ARE  OUTPUT  THROUGH  COMMON  BLOCK  AMISS 


PAMB 

AMBIENT  PRESSURE 

PSIA 

TAMB 

AMBIENT  TEMPERATURE 

DEGR 

ORAM 

RAM  PRESSURE  (100P/C 

RECOVS^Y) 

PSIA 

TRAM 

RAM  TEMPERATURE  (100 P/C 

RECOVERY) 

OEGR 

Z 

ALTITUDE 

FT 

AMNX 

MACH  NUMBER 

— 

COMMON/CIO/IR EAO, iWRITEtlDIAG 
COMMON/AMI SS/P AMB , T AMB ,PR AM , TRAM , Z , AMNX 
COMMON/ERMESS/IFAT AL» I  ERR 

C  ALL  OATA  ARRAYS  INPUT  AT  INCREMENTS  OF  5000  FT 

DIMENSION  TA1(21),TA2(21),TA3(21>,TA4(21>,TA5(21>,TA6(21>  ,TA7(21> 
1  PA(21> 

DATA  TA1  / 

1  580., 5 55., 534. ,  517 . , 501 . ,487 . , 481 . ,470., 451. ,439., 430., 

2  425. ,425. ,425. ,425., -25. ,426., *30. ,433. ,436. ,4*3.  / 

OATA  TA2  / 

1  563.  ,543.  ,5 24., 505., 485. ,466., 4*7.  ,430.  ,415.  ,417.  ,420., 

2  t*2 1  0  1 4*22  0  9  4*2  2  0  f  4*23  •  9  **2  8  •  9  4* 32  •  9  4* 36  •  *4*4*0  •  9  4*4*4*  0  f  «+48  •  / 
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Table  157:  LISTING  FOR  SUBROUTINE  FL  (CONTINUED) 


DATA  TA3  / 

1  550.,  530.,  511.,  <*91.,  *72.,  <-53.,  433.  ,414. ,395.  ,377.,  360., 

2  351. ,362.  ,373.  ,384.  ,391.  ,397.  ,40**.  ,411.  ,M8.  ,424.  / 

DATA  TA4  / 

1  5 19., 501., 483. ,465., 447. ,430., 412. ,394., 390. ,390. ,390., 

2  390. , 390. , 390. ,392. ,395., 398. ,4CC., 403. ,406. ,409.  / 

DATA  TA5  / 

1  444., 453., 450., 436., 422., 407., 393. ,391 . , 390 . ,389. ,388 . , 

2  386. ,385. ,383. ,382. ,381. ,380. ,378. ,378. ,378. ,378.  / 

DATA  TA6  / 

1  400., 445., 445., 431. ,414., 396., 377. ,375. ,375. ,361., 337., 

2  335. ,335. ,347. ,359. ,365. ,364. ,362. ,360. ,358. ,356.  / 

OATA  TA7  / 

1  382., 405., 411 .,402., 390., 377., 366. ,359. ,360. ,357. ,346., 

2  337. ,337. ,341. ,341. ,340. ,339. ,341.  ,342. ,346.  ,349.  / 

DATA  PA  / 

1  14.69, 12.23,10. 11,8.30,6.76,5.40,4.375,3.465,2.73,2.15,1.692, 

2  1.332, 1.049,0.826,0.651,0.514,0.406,0.322,0.255,0.203,0.1616  / 
NDAY*DAY 

C  DEFAULT  VALUE  OF  DAY*  .99999,  WHICH  RESULTS  IN  SELECTION  OF 

C  STANDARD  OAY  (0AY=4 ) 

IF(DAY.LT.1.0.0R.DAY.GT.7.0)NDAY=4 

C  CHECK  IF  ALTITUDE  IS  WITHIN  ALL0WA8LE  RANGE 
IFULT.GE.C.O.ANO.ALT.LE.1COCCO. )  GO  TO  1C 

C  TEST  FOR  DIAGNOSTIC  PRINT  OUT 
IF  I  IERR.NE.DGO  TO  10 
WRITE ( IWR I TE  » 9999 ) 

9999  FORMAT ( 10X  »30HNON  FATAL  ERROR  CALLED  FROM  FL/ 

1  10X,41HALTITU0E  OUTSIDE  ALLOWABLE  RANGE  (0-100K)) 

C  CALCULATE  AMBIENT  PRESSURE 

10  Xl=ALT/5000.  ♦  1. 

X2=AMINl(AMAl<l  (XI,  l.),21.) 

I  =  X2 

I*MINO(MAXO(I , 1 ) , 20 ) 

PAMB=(X2-I)*(PA(I*1)-PA(I))  «■  PA(I) 

C  CALCULATE  AMBIENT  TEMPERATURE 

GO  TO  (11,12,13,14,15,16,17)  NDAY 

C  MIL-ST0-210B  OPERATIONAL  (1P/C  RISK)  HOT  DAY 

11  T A MB* ( X  2—  I )  *  (  T  A 1  ( I ♦ 1 1 —T A  1 (I) )  ♦  TAl(I) 

GO  TO  20 

C  MIL-STD-210A  HOT  DAY 

12  TAMB*(X2-I)*(TA2(I«-1)-TA2(I)  H-TA2(I) 

GO  TO  20 

C  MIL-STD-210A  TROPICAL  OAY 

13  TAMB*(X2-I  )*(TA3(I«-1)-TA3(I))  ♦  TA3  ( I ) 

GO  TO  20 

C  U.S.  STANDARD  ATMOSHPERE  (1962) 

14  TAMB* (X2— I  )*{ TA4( I *1 )—TA4 (I ) )  ♦  TAMI) 

GO  TO  20 

C  MIL-STD-210A  POLAR  DAY 

15  TAMB*(X2-I  )*(TA5(in)-TA5(I))  -t-TASd) 

GO  TO  20 

C  MIL-ST0-210A  COLD  OAY 

16  TAMB* (X2-I )»(TA6(I>1)-TA6(I))  >TA6(I) 

GO  TO  20 

C  MIL-STD-2109  OPERATIONAL  ( 1P/C  RISK)  COLD  OAY 
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Table  157:  LISTING  FOR  SUBROUTINE  FI  (CONCLUDED) 


17  TAMB=(X2-I>*(TA7(  I*1)-TA7H)  )  ♦  TA7<I> 

C  CALCULATE  RAM  CONDITIONS.  ASSUMES  GAMMA=1.4 
20  PRAM=PAM8*(1.«-.2*AMN*AMN)**3.5 

TRAM*TAMB*(1.*.2*AMN*AMN) 

PAM»PAM8 

TAMaTAMB 

TRMaTRAM 

PRM*PRAM 

AMNXsAMN 

Z«ALT 

RETURN 

ENO 
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Table  158:  LISTING  FOR  SUBROUTINE  FLOW 


CFL0W 

SUBROUTINE  FLOW 

C  SUBROUTINE  TO  FIND  FLOW  AND  PRESSURE  VALUES  DURING  DYNAMIC  SIMULATION 
C 

COMMON/COEFFS/CPA,CAF,CPC,CPT,CTC.CGAP,CTA,CVENT,CXK 
COMMON/FLU ID/QFANtQPL AT  »QPLCH»QPLTXtQTKAT f QTKCH, QCHAT »PATFN»PFAN» 
1  PAT,TEMPAT,RHO,OVENT 

COMMON/ARE AV/S,AATFN,APLAT,APLCH,APLTK,ATKAT,ATKCH,AGAP, ATX, ACH, 

1  ATKCN,APRV,VCH,VTK,VPLM,VCHD,VFAN,ATKATC ,ATXCHC 
COMMON/ST ATE/PPLMfPCH,PTX,SINXRT,YCG,0PHI,0TH5TA,THETAE, PHI E,  SI E 
1  ,XV,VV,QFANX 

COMMON/PR V/DPRV , PPLMB , XA ,  AXPRV , AMPR V , SPRV ,NPRV ,A  VENT 

common/flags/icln,idif,iflag,istat,ipp,iprv,mm,nstop 

COMMON /C0MPRS/AL0,AL1,AL2,AL3,AL4, GO, G1,G2,G3,G4,QP1 
C 

DIMENSION  PEN(60) 

C 

TI RHO*2 .O/RHO 
C  PLENUM  TO  TRUNX  FLOW 

SIGN*  1.0 

I FJ( PPLM-PTK ) .LT .0 .0 )  SIGN*— 1.0 
QPLTX=SIGN*CPT*APLTK*SQRT ( A3S( TIRHO*( PPLM-PTK ) ) ) 

C  PLENUM  TO  CUSHION  FLOW 

S IGN*l .0 

IF! (PPLM-PCH).LT.O.O)  SIGN=-1.0 
QPLCH=SIGN*CPC*APLCH*SQRT ( ABS ( TIRHO*<  PPLM-PCH ) ) ) 

C  TRUNK  TO  CUSHION  FLOW 

SIGN*  1.0 

IF ( (PTX-PCH) .LT.O.O)  SIGN*-1.0 

QTKCH*SIGN*CTC*SQRT(ABS(TIRH0*(PTK-PCH)> )*( ATKCH>0.66667*ATXCHC ) 

C  TRUNX  TO  ATMOSPHERE  FLOW 
SI GN*1 .0 

IF{PTK.LT .0.0 ) SIGN*— 1. 

QTKAT=SIGN*CTA*SQRT(TIRH0*A8S  (  PTK ) )  *<ATKaT«-0.66667*ATKATC  ) 

C  PRESSURE  RELIEF  VALVE  FLOW 
QVENT*0.0 

IF(NPRV.LE.O)  GO  TO  10 
CALL  VALVE 
SIGN*1 • 

IFCPPLM.LE .0.0) SIGN*-!. 

QVENT=AVENT*CVENT*SQRT(TIRHO*ABS (PPLMJ )*SIGN*NPRV 
C  FAN  INLET  PRESSURE 
10  CALL  DYNFAN(QFANX»PFAN) 

PATFN*0 .0 

IF ( AATFN.GE .1 .0 )G0  TO  20 
SIGN-1.0 

IF(0FANX.LT.0.0)SIGN*-1.0 
PA  TFN*-RH0/2 .*SIGN*( QFANX/A ATFN/CAF ) **2 
20  SIGN-1. 

IF { PPLM.LT .0.0)  SIGN*— 1 .0 
C  PLENUM  TO  ATMOSPHERE  FLOW 

QPLAT*APL AT*C  PA*SQRT{ TIRHC*A9S ( PPLM ) l-SIGN 
C  CUSHION  TO  ATMOSPHERE  FLOW 
SIGN- 1.0 

IF(OCH. LT.O.O)  SIGN*-1 .0 

QCHAT»AGAP*CGAP*SQRT( TIRHO*ABS ( PCH) ) *S IGN 
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Table  159.  LISTING  FOR  SUBROUTINE  FH 


CFM 

SUBROUTINE  FM(STC ,FAN,ORF, All ,PPRV,TRK ,XXX,YYY,Xl,X 10,1X1 

2, X2,X2D,IX2,X3»X30,IX3fX*.fX40,IXA.,X5 

3, X50,lX5,X6,Xt>0,IX6,X7,X70,IX7,X8,X8  0 
A,IX3,X9,X9D,IX9,X10,X100,IX1C,X11,XUD 
5,  IXll ,X12 , X12D,IX1 2,X13  » X 130 » IX 13, CPU 

6, 8M,BN , VLX »  PPAT  »T  AM , AMS , VCD, V PL »VFN»AAT»APA 
7,APT,APC,TSI,FMC> 


VERSION  I  MARCH  1979 

WRITTEN  8Y  -  GS  OULESA 

PURPOSE  -  TO  INCORPORATE  THE  INELASTIC  ACLS  TRUNK  MODEL 
DEVELOPED  BY  FOSTER  MILLER  ASSOCIATES  INTO  THE 
STANOARD  EASY  COMPONENT  LIBRARY 

METHOD  -  COMPONENT  FM  HAS  REPLACED  THE  FOSTER  MILLER  ACLS  MAIN 
PROGRAM.  NECESSARY  FOSTER  MILLER  SUBROUTINES  WHICH 
SUPPORT  THE  MAIN  PROGRAM  WERE  AOOEO  TO  THE  EASY  LIBRARY 

ARGUMENT  LIST 

*****  INPUT  DATA  ARRAYS  ***** 

STC  -MISC  DATA  ARRAY;  PARAMETERS  USED  IN  CALCULATION 
OF  HEAVE-PITCH-ROLL  LOAO  MAPS 

FAN  -FAN  DATA  ARRAY;  POLYNOMIAL  COEFFICIENTS,  FAN  AIR 
INERTANCE,  MAXIMUM  STABLE  PRESSURE 

ORF  -MISC  OATA  ARRAY;  ORIFICE  AREA,  NUMBER  OF  ORIFICE 
ROWS,  SPACING,  DIMENSIONS,  X  COORDINATE  OF  CG 

AH  -AIRCRAFT  DATA  ARRAY;  MOMENTS  AND  PRODUCTS  OF  INERTIA 
HORIZONTAL,  VERTICAL,  AND  LATERAL  CG  DISTANCES 
FROM  CUSHION  CENTER 

PR V  -PRESSURE  RELIEF  VALVE  OATA  ARRAY;  NUMBER  OF  VALVES, 
DIMENSIONS,  STIFFNESS,  MASS 

TRK  -TRUNK  OATA  ARRAY;  ATTACH  POINT  DIMENSIONS,  TRUNK 
FREE  HEIGHT,  ANO  TRUNK  POLYNOMIAL  COEFFICIENTS 

XXX  -MISC  COEFFICIENT  ARRAY;  VARIOUS  DISCHARGE  COEF¬ 
FICIENTS,  POLYTROPIC  CONSTANT  (DEFAULT  VALUES 
FOR  THIS  TABLE  ARE  PROVIDED  IN  SUBROUTINE  PARAMS) 

YYY  -MISC  DATA  ARRAY;  GROUND  EFFECT  COEFFICIENT,  PRV 
DAMPING  RATIO,  COEFFICIENT  OF  FRICTION,  TRUNK 
DAMPING  CONSTANT,  BRAKING  DECELERATION 
(DEFAULT  VALUES  FOR  THIS  TABLE  ARE  PROVIDED  IN 
SUBROUTINE  PARAMS) 

*****  OUTPUTS  ***** 
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Table  159:  LISTING  FOR  SUBROUTINE  FM  (CONTINUED) 


XI  ,XID,IX1 
X2  »X2D *1X2 
X3,X30,IX3 
X4,X40,IX4 
X5 ,X5D,IX5 
X6  »X6D  y 1X6 
X7  ,X7D  » 1X7 
X8  »X80  » 1X8 
X9,X9D,IX9 
X lOtX 100* IX 10 
X11,X110»IX11 
XI 2»X 120* 1X12 
X13*X130» 1X13 
CPU 


PLENUM  PRESSURE, RATE, INT  CONTROL;  PSFG 
CUSHION  PRESSURE, RATE, INT  CONTROL;  PSFG 
TRUNK  PRESSURE ,RATS , INT  CONTROL;  PSFG 
VEH  SINK  RATE, ACCEL, INT  CONTROLS  FT/SEC 
Y  CCORO  OF  CG, RATE, INT  CONTROL;  FT 
PITCH  RATE, ACCEL, INT  CONTROL;  RAO/SEC 
ROLL  RATE, ACCEL, INT  CONTROL;  RAO/SEC 
ROLL  ANGLE, RATE, INT  CONTROLS  RAO 
PITCH  ANGLE, RATE, INT  CONTROL;  RAD 
YAW  ANGLE, RATE, INT  CONTROL;  RAO 
PRV  STROKE, RATE, INT  CONTROL;  FT 
PRV  VELOCITY, ACCEL, INT  CONTROLS  FT/SEC 
FAN  AIR  FLOW, RATE, INT  CONTROL;  CFS 
CUMULATIVE  CPU  TIME;  SEC 


*****  INPUTS  ***** 

BM  NUMBER  OF  STRAIGHT  TRUNK,  SEGMENTS  PER  QUARTER 

OF  TRUNK  PERIPHERY  \ 

BN  NUMBER  OF  CURVED  TRUNK  SEGMENTS  PER  QUARTER 

OF  TRUNK  PERIPHERY  \ 

VLX  AIRCRAFT  FORWARD  VELOCITY,  FT/SEC 

PPAT  AMBIENT  PRESSURE,  PSFG 

TAM  AMBIENT  TEMPERATURE,  OEGF  V 

AMS  AIRCRAFT  WEIGHT,  LBS  // 

VCO  CUSHION  DEAD  VOLUME,  CU /FT 

VPL  PLENUM  VOLUME,  CU  FT 

VFN  FAN  VOLUME,  CU  FT 

AAT  FAN  INLET  ORIFICE  AREA,  SQ  FT 

APA  PLENUM-TO-ATMOSPHERE  ORIFICE  AREA,  SQ  FT 

APT  PLENUM-TC-TRUNK  ORIFICE  AREA,  SQ  FT 
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Table  159:  LISTING  FOR  SUBROUTINE  FM  (CONTINUED) 


APC  PLENUM— TO— CUSHION  ORIFICE  AREA,  SQ  FT 

TSI  STATIC/DYNAMIC  OPTION  PARAMETER 

*  -1  DYNAMIC  MOOE  ONLY.  INITIAL  CONDITIONS 

FOR  STATES  1,2,3  ANO  13  ARE  ESTIMATED 
9Y  THE  PROGRAM.  REMAINING  INIT  CONDS 
MUST  BY  INPUT  BY  USER. 

*  0  DYNAMIC  MODE  ONLY.  ALL  INITIAL  CONDS 

MUST  BE  INPUT  BY  USER. 

=  1  STATIC  LOAD  MAPS  DYNAMIC  MODE.  INIT 
CONDS  FOR  STATES  1,2,3  ANO  13  ARE  EST¬ 
IMATED  BY  THE  PROGRAM.  REMAINING  MUST 
BE  INPUT  BY  USER. 

*  2  STATIC  LOAD  MAPS  ♦  DYNAMIC  MODE.  ALL 

INIT  CONDS  MUST  BE  INPUT  BY  USER. 

*  3  STATIC  LOAD  MAPS  ♦  EQUILIBRIUM  CALCS  ♦ 

DYNAMIC  MOOE.  INIT  CONDS  FOR  STATES  1,2, 

3  ANO  13  ARE  SET  TO  EQUILIBRIUM  CALCS. 

USER  MUST  INPUT  OTHERS. 

*  *¥  STATIC  LOAD  MAPS  ♦  EQUILIBRIUM  CALCS  ♦ 

DYNAMIC  MOOE.  INIT  CONOS  FOR  STATES  1,2, 

3  AND  13  ARE  ESTIMATED  BY  PROGRAM.  USER 
MUST  INPUT  OTHERS. 

a  5  STATIC  LOAD  MAPS  ♦  EQUILIBRIUM  CALCS  ♦ 

DYNAMIC  MOOE.  USER  MUST  INPUT  ALL  INIT 
CONDITIONS. 

FMC  COMPONENT  MOOE  OPTION 

LE.O.  FOSTER  MILLER  MODE  -  DUPLICATES  FOSTER 
MILLER/NASA  ACLS  PROGRAM. 

GT.O.  EASY  MODE  -  ENABLES  EASY  ANALYSES  WHICH 

REQUIRE  LINEARIZATION  (STSAOY  STATS,  LINEAR 
ANALYSIS ) 


COMMON/COEfFS/CPA,CAF,CPC,CPT,CTCtCGAP ,CTA,CVENT,CKK 
C 

COMMON/FOR  TQ/PCP, FTP, FORCT, FOF , FORCEY, TCPX, TTPX, TORQTX, TDFX , 
lTOROUEX, TCPZ , TTPZ , TORQTZ, TOFZ ,TORFZ , TORQUEZ 

COMMON/ ARE AV/S ,AATFN, APLAT , APLCH, APLTK ,ATKAT, ATKCH, AGAP, ATK »ACH , 

1  ATKCN,APRV*VCH,VTK,VPLM,VCHO*VFAN,ATKATC,ATKCHC 

c 

C 

COMMON/GEOM£T/A,B,HYI,L,D,LS,LP,SH,NH,AH,NR,PHIl ,PHI2,R1»R2,L1,L2, 
1A 1 »A2 ,XX1 , XX2 ,HY 
C 

C0MM0N/9TERM/B 11, 9 12, 313, 321, B22,B23,931, 832,833 
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Table  159:  LISTING  FOR  SUBROUTINE  FM  (CONTINUED) 


COMMON/SHAPE/AGAPI (ICO ) , AGAPR ( IOO) , ATKI (IOC > ,  ATKR( ICO ) , ATKCHI ( 100 ) 

1 ,  ATKCHR (IOC) ,  ATKATI ( 100) , ATKATR ( 100 ) , A  CHI ( 100 ) , ACHR ( 100 ) 

2, ATKCNIU00),ATKCNR(100)  ,VCHI(  100)  ,VCHR(  100),  VTK  1(100  >,VTKR(  100) 

3, XCH<  100)  ,XTM  100)  ,ZCH(100)  .ZTKdOO  ),  PERI (100) 


COMMON/VE HCL/ MASS, AIX,AIZ,AIXY,AIYZ,AI ZX.CC ,GG, FF.AIFAN 
C 

COMMON/SPA  CE/N , M , B  ETA , 0  ELX , XCX ( 1 00 ) , ZC  X (1 00 ) , XG « 100 ) , YG ( 1 00 ) , 

1ZG  ( 100), SL4(  100  ),YGH(100),ISEG  (100  ),ITYPd00),  DELTA  (100  >,XCHI  (100) 
2,ZCHI(100),XCG 
C 

COMMON/LOADS/FORCNS(3,10>  ,CCS< 3,10),  YCGS<  3,10) , PHIS  (3,10  ,AGAPS  (3, 1C 
110),PCHS(3,10),QFANS(3,10) ,PFANS(3,10) ,PPLMS(3, 10) .THIS (3,10) , 
1FFS(3,10), TORXS (3,10) ,TORZS (3 , 10 ) ,PTKS (3, 10 ) 

C 

COMMON/COMPRS/ALO,AL1,AL2,AL3,AL4,GO,GI,G2,G3,G4,QP1 

C 

common/fluid/qfan,qplat,qplch,qpltk,qtkat,qtkch,qchat,patfn,pfan, 
i  pat,tempat,rho,qvent 
c 

COMMON/DYNAMIC/TIM,FTIME,DTIME,IQ,NQ,DVCH,DVTK,VELX,DERY(  13) 
i.OVCHP 

c 

COMMON/ £S TMO/GEC, OAMPC  »U»OECCL»HDC» PHA ,CENFX ,CENFZ, ZEPRV.ZPRV 
1,QP2, SLOPE 
C 

C0MM0n/LABL/LABEL(80) 

C 

COMMON/STATIC/YSTRT,YSTOP,PSTRT,PSTOP,TSTRT,TSTOP 
1,PHIYC,THEYC,YCPHI ,ycthe 

c 

COMMON/PRV/DPRV ,PPLMB,XA ,AKPRV ,AMPRV ,SPRV,NPRV,AVENT 
C 

CQMMQN/FLAGS/ICLN ,IDIF,IFLAG,ISTAT,IPP,IPRV  »mm ,nstop 

c 

C0MM0N/HCUR/AH0,AH1 ,AH2,AH3 
C 

C0MM0N/SAVE/R1I ,R2I,PHI1I,PHI2I,L1I,L2I,A1I,A2I,D202HBI,0XAMA8I , 

1  BETA02I, S INPHRI, 02I,S1NPH2I,A1MA2,X1I ,X2r,X12I,SI 
COMMON/ST ATE/PPLM, PCH ,PTK .SINKRT , YCG.OPHI .DTHETA ,THETAE »  PHIE 
2,SIE,XV,VV,QFANX 
COMMON/CPROV/PV ( 1 ) 

common/ctime/time 
COMMON/CS IMUL/DO( 6) ,TINC,TMAX 
COMMON/CO VRLY/INS  T 
COMMON/CN  TRLS/1 1,12 , 1 MODE , E(l) 

COMMON/FHERR/FMX 
COMMON/COR  0£R /NOX , NOV , NOP 
CCMM0N/CNAM6X/X  S ( 1 ) 

COMMON /FMPCH/NPCH 

DIMENSION  STC(l)  ,AII(  1)  ,CRF(1)  ,FAN(  1  ) ,  PPRVd  )  ,  TRX  d  )  ,  XXX  d )  ,  YYY  ( 1) 

REAL  L»LS,L°,L1,L2,MASS 

DATA  PI, RADI AN/3, 1^1592653, 0.0174532/ 

DATA  HKILL/O./ 

DATA  PCNX/1CHPCHFM  / 
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************************************** *************** ************ 


INITIAL  PHASE  OF  PROGRAM  SETS  FOSTER  MILLER  VARIABLES 
EQUAL  TO  USER  INPUT  OATA 

CALL  SECONO(CPU) 

TIM«TIME 
VELX*VLX 
PAT=PPAT 
TEMPAT*TAM 
MASS* AMS 
VCHO*VCO 
VPLM*VFN*VPL 
VFAN*VFN 
AATFN*AAT 
APLAT*APA 
APLTK*APT 
APLCH*APC 

IF (TIME.NE.PV(27)  )  GO  TO  20 
NFM*0 
NPCH*2 

IF(N0X.EQ.13)  GO  TO  2 
00  3  1*1, NOX 
3  IFfPCNX.EQ.XStl))  NPCH*I 

2  FMX*FMC 

IF(INST.NE.26.0R.IM00E.NE.7)  FMX»1. 

SUM*FMX 
DO  10  J=4,13 
XJ=J 

10  SUMsSUM+STC ( J )  ♦  X J*AI I ( J ) 

DO  11  J=4,9 

XJ=J 

11  SUM*SUM*  X J*PPRV( J ) 

00  12  J*4,15 

XJ*J 

12  SUM*SUM-fXJ*FANU) 

IF (TSI. EQ. 0.99999)  TSI=0. 

ISTAT*TSI 
DO  13  J*4,!l 
XJ*J 

13  $UM*TSI*SUM+ORF( J )*XJ+TRK <J)*XJ*XJ+XXX(J)+YYY(J) 
SUM*SUM*9M*8M+9N*A AT+APA+APT+APC 

IF ( SUM. EQ* FAN ( 17) )  GO  TO  20 

FAN( 17) *  SUM 

M»9M 

N*9N 

G0*FAN(4) 

G1 *FAN( 5) 

G2*FAN ( 6) 

G3*FAN(7) 

G4*FAN(8> 

QP1*FAN(9) 

ALO*FAN( 10 ) 

ALl*l=AN(ll  ) 

AL2*FAN(12 ) 
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AL3=FANU3  ) 

AL4*FAN(14) 

AIFAN=FAN< 15  > 

LS=0RFC9> 

0*0RF( 10) 

XCG*ORF (11) 

NR=0RF(4) 

NH»0RF(5) 

AH=ORF (6 ) 

$H=0RF(7> 

LP=0RF(8) 

AIX*AII<4) 

AIZ*AIIt5) 

AIXY»AIH  6  ) 

AIYZ®AII(7 ) 

AIZX»AIIC8  ) 

CC=AII19) 

GGsAII(lO) 

FF*AI 1(11) 

PH A=AI I ( 12 ) 

H0C=AII(13) 

IF(PPRV14) .EQ. 1.99999)  PPRVIM=0 
NPRV»PPRV( 4) 

OPRV*DPRV ( 5 ) 

PPLMB=PPRV(&> 

XA=PPRV(7 ) 

AKPRV=PPRV ( 8) 

AMPRV=PPRV(9) 

A*TRK (4) 

B = TR  K  (  5  ) 

L=TRK  ( 6 ) 

HYI*TRK(7) 

AHC=TRK<8 ) 

AH1=TRK(9) 

AH2=TRK  CIO) 

AH3*TRK (11) 

CALL  PARAMS 

IF (XXX(2) .EC. 1.99999)  GO  TO  5 
CKK=XXX (4 ) 

CP A=XXX (5 ) 

CAF-XXXC6) 

CPC*XXX(7) 

CPT*XXX (8 ) 

CTC*XXX(9 ) 

C7A*XXX(10  > 

CGAPaXXXf 11) 

CONTINUE 

IF(YYY(2).E0. 1.99999)  GO  TO  6 

GEC«YYY<M 

ZEPRV=YYY( 5 ) 

U*YYY ( 6 ) 

06CCL*YYY(7) 

OAMPC-VVYO) 

QP2»YYY(9 ) 

SLOPF»YYY( 10) 

CV?NT*YYY( 11) 


nonoo  oooo  oooo 


Table  159:  LISTING  FOR  SUBROUTINE  FM  (CONTINUED) 


6  CONTINUE 

YSTRT=STC(4) 

VSTOP*STC( 5> 

PHlYC*STC(6)*RA0lAN 
THEYC*STC (7)* RADIAN 
PSTRT*STC (8>*RADIAN 
PSTOP=STC ( 9)*RADI AN 
YCPHI=STC(10) 

TSTRT=STC( II ) *RAOI AN 
TSTOP*STC( 12 )*RAOI AN 
YCTHE=STC( 13) 

SUBROUTINE  FMWRIT  WILL  PRODUCE  A  LIST  OF  FOSTER  HILLER 
INPUT  VARIABLES  ANO  THEIR  RESPECTIVE  VALUES 

CALL  FMWRIT 


ISHAPE=1 
LIMP=500 

**  ************* ******** *****************************  ****************** 
DATA  CONVERSION  SECTION 
CONVERT  DATA  TO  PROPER  UNITS 

MASS=AMS/32.2 
PA T=PPAT*14*.0 
AH=AH/14A.O 
OPRV-OPRV/12. 

PPLMB=PPLMB*144. 

XA=XA/12. 

AKPRV=AKPRV*12. 

AMPRV=AMPRV/32. 

C 

C  PARAMETER  CALCULATION 
C  RHO  IS  AIR  DENSITY 

RHO=1.241/(460.0«-TEMPAT) 

C  CALCULATE  PRESSURE  RELIEF  VALVE  PARAMETERS 
APRV=3. 14 15926 53*0 PRV*0 PR V/4.0 
SPRV*3. 141592653*0PRV 
ZPRV»2.*ZEPRV*SQRT ( AKPRV*AMPR V ) 

C  ************************************************************************ 
C  INITIAL  ASSESSMENT  OF  AREAS  ,  VOLUMES 

C  ISHAPE  VALUE  OF  0  MEANS  INFEASIBLE  TRUNK  .ERROR  RETURN 
C  CALL  GEOMETRY  ROUTINES  TO  INITIALIZE  TRUNK  GEOMETRY 
HY=HYI 
02 1=0  » 

CALL  TRUNK (ISHAPE) 

IF(ISHAPS.EQ.O)  WR ITE (6 .3999 ) 

I P  LM* 1 

IF (ISHAPE. EQ.O)GO  TO  299 
CALL  SEGMNT (0  ) 

CALL  SHAPEl(O) 

IF(ISTAT) 500,500,100 
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C  **************************************** ****************************** 

C 

C  ******»************************************•***************************- 

C  STATIC  PART  OF  THE  PROGRAM 

C  ************************************************************************* 
C  ************************************************************************ 
C  DETERMINE  STATIC  CHARACTERISTICS  OF  ACLS 
C 

100  I C  LN* 1 

C 

C  SUBROUTINE  STATIC  IS  STATIC  ITERATOR 
CALL  STATIC(ICASE) 

C  ICASE  IS  ERROR  FLAG  FOR  ITERATION,  ZERO  CAUSES  RETURN 
IF(ICASE.EQ.O)  WRITE! 6,9100) 

9100  F0RMAT(5X,*STATICS  ERROR , PROGRAM  TERMINATION*,/) 

IF(ICASE.EQ.O)  GO  TO  299 
IF(ISTAT.EQ.l.0R.ISTAT.EQ.2)  GO  TO  200 
C 

C  NPRV  IS  NUMBER  OF  PRESSURE  RELIEF  VALVES 
IF (NPRV.EQ .0) GO  TO  198 
IFIPPLM.LT .PPLM3)  GO  TO  198 
WR ITE ( 6 ,9000)  PPLM 

9000  FORMAT (10X»*INFEASI8LE  CONFIGURATION*,//  ,  15X,*INCREASE  PRESSURE  ACT',' 
1TUATI0N  LIMIT  OF* , /,1 5X,*PR ES SUR E  RELIEF  VALVE  TO  AT  LEAST*,/, 15X, 

1  F10.4,*PSF*,/) 

IPLM*0 
GO  TO  299 
198  CONTINUE 
C 

C  PARAMETER  CALCULATION 
C 

C  fan  horsepower 

HP=QFAN*PFAN/550. 

C  FAN  STALL  MARGIN 

SC*ABS ( PFAN  -OPl)/QPl*iOO. 

C  WRITE  FINAL  EQUILIBRIUM  CONDITIONS  AND  STATIC  CHARACTERISTICS 
C  OBTAINED  FROM  SUBROUTINE  STATIC 
C 


9201 

WR ITE ( 6 ,9201) 

FORMATdHl, ///////) 

9034 

WRITE (6,9034) 

FORMAT (44X, 3 1H  STATIC  EQUILIBRIUM 

CONDITIONS  ,/) 

9037 

WRITE (6,9037) YCG 

FORMAT! 43X, 27H  HEIGHT  OF  CG 

»  ,F8.3,2X,3H  FT  ) 

908  0 

PHIC*PHIE* 180./3. 14159 

WRITE (6 ,9080) PHIC 

FORMAT! 43X  »27H  PITCH  ANGLE 

*,F8.3,2X,3h  OEGREES) 

908  2 

THETAEC*THETA=*130./3. 14159 

WR ITE (6,9082) THE T A  EC 

FORMAT! A3X,27H  ROLL  ANGLE 

*»F8.3»2X»8H  DE GR EES,/) 

9060 

WRITE (6, 9060)  SI 

F CRMA T ( 43 X » 2 7H  CUSHION  PERIMETER 

*,F3.3,2X,10H  FT  ) 

9061 

WRITE ( 6 ,9061) VCH 

FORMAT (<»3X,27H  CUSHION  VOLUME 

* »F8 • 3 » 2X » 8rt  CU  FT  ) 

9062 

WRITS (6,9062) VTK 

FORMAT!  <*3X,27H  TRUNK  VOLUME 

*, F8 • 3 , 2  X, 8H  CU  FT  ) 
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WRITS ( 6»9038)AGAP 

9038  FORMAT! 43X,27H  AIR  GAP  AREA  *,F8.3,2X,3H  SO  FT  ) 

WRITE! 6,9063) ACH 

9063  FORMAT ( <*3X , 27H  CUSHION  AREA  «,F8.3,2X,8H  SO  FT  ) 

WR ITE ( 6 ,908 1) ATKCN 

9081  FORMAT! 43X,27H  GROUND  CONTACT  AREA  *,F8.3,2X,8H  SO  FT  ) 

WR ITE (6 ,9064) A  TKAT 

9064  FORMAT! 43X,27H  ORIFICE  AREA  TRUNK-ATMOS  ®,F8.3,2X,8H  SO  FT  ) 

WRITE  16,9065 )ATKCH 

9065  FORMAT l43X»27H  ORIFICE  AREA  TRUNK-CUSH  =,F8.3,2X,6H  SO  FT  ,/) 
WRITE !6,9039)PCH 

9039  FORMAT! 43X,27H  CUSHION  PRESSURE  *,F8.3,2X,9H  PSFG  ) 

WRITE!6,9040)  PTK 

9040  FORMAT! 43X,27H  TRUNK  PRESSURE  *,F8.3,2X,9H  PSFG  > 

WRITE!6,904I)PPLM 

9041  FORMAT! 43X,27H  PLENUM  PRESSURE  *,F8.3,2X,5H  PSFG  ,/) 

WRITE ! 6, 9042 ) OF AN 

9042  FORMAT! 43X,27H  TOTAL  AIR  FLOW  =  ,F8.3,2X,10H  CU  FT/SEC  ) 

WRITS ! 6 ,9043 ) OCHAT 

9043  FORMAT ! 43X, 27H  TOTAL  CUSHION  FLOW  =, P8 .3, 2X, 10H  CU  FT/SEC) 

WRITS(6,904*.)QPLCH 

9044  F0RMATi43X,27H  FLOW  PLENUM  TO  CUSHION  ®,F3.3, 2X, 10H  CU  FT/SEC) 
WR ITE (6 ,9045 )OPLTK 

9045  F0RMAT(43X,27H  FLOW,PLENUM  TO  TRUNK  *,F8.3, 2X, 10H  CU  FT/SEC) 
WRITE ! 6 ,9046 IQTKCH 

9046  FORMAT (43X ,27H  FLOW, TRUNK  TO  CUSHZON  *, F8. 3,2X, 10H  CU  FT/SEC) 

WR ITS ! 6 ,9047) QTKAT 

9047  FORMAT 1 43 X » 2 7H  FLOW, TRUNK  TO  ATMOSPHERE  ®, F8 .3 , 2X, 10H  CU  FT/SEC) 
WR  ITE  !  6 , 9049)  OPLAT 

9049  F0RMAT«43X,27H  FLOW, PLENUM  TO  ATMOSPHERE® ,F8 * 3 , 2X, 10H  CU  FT/SEC  , 
l  /) 

9203  FORMAT!/) 

WRITE l 6, 9203) 

WR ITE ! 6 ,9070) SC 

9070  F0RMAT!43X,27H  FAN  STALL  MARGINE  *,F3.3,2X,8H  PERCENT) 

IF  !SC*LT .5  .0) WRITE  16,9071) 

9071  FORMAT !43X,*-WARNING-FAN  CRITICALLY  STABLE-*/) 

WR ITE ( 6 ,9066) HP 

9066  FORMAT! /,43X,27H  THEORETICAL  FAN  POWER  *,F8.3,2X,4H  HP 
1) 

200  CONTINUE 

WRITE! 6, 93 00) 

9300  FORMAT! 1HI, ///////, 52X,16H  STATIC  LOAD  MAP,///, 57X ,6H  HEAVE,//) 
PHIYC*PHI YC/RAOIAN 
THEYC«THEYC/RAOIAN 
WR ITE! 6 ,9301 ) OHIYC , THEYC 

9301  FORMAT  110 X, 15 H  PITCH  ANGLE  =  ,F12.5,/, 10X,15H  ROLL  ANGLE  ®  ,F12.5 

1,/) 

WRITE  16,9401) 


94C1  FORMAT! 10X,*  LOAO 

CG 

TRUNK 

CUSHION 

1  «AN 

FAN 

GAP 

CONTACT 

*♦/ 

2  1CX,* 

HEIGHT 

PRESSURE  PRESSURE 

PRSSSUR 

3RE 

flow 

AREA 

AREA  *,/ 

4  10X,* 

L3S 

ft 

PSFG 

PSFG 

PSFG 

m 

* 

CU  FT/ SEC 

SO  FT 

SO  FT  *,/) 

00  9400 

I J»i, 10 
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WRITE (6,9305 > FORCN S( 1 , I J) , YCGS ( I , I J ) ,PTXS ( 1 , I J ) , PCHS ( 1, I J > , PFANS( 
IltIJI ,QFANS(1,IJ) ,AGAPS(1,IJ) ,CCS(1,IJ > 

9305  FORMA T(  IOX  ,F13 . 1 ,  F  13.4, 3F 13.  I  ,F  13 .2  ,F13.4,F13. 3  ) 

9400  CONTINUE 

WRITE (6,9325 ) 

9325  FORMA T( 1H1 »//////) 

WR ITE (6,93 10)  YCPHI 

9310  FORMA T ( //// , 5 7X , 6H  PITCH,// ,  IOX ,  16H  CG  ELEVATION  *  ,F12.5,/,10X, 


2  19H  ROLL  ANGLE  *  0 

.0,/) 

WRITE (6 

,9402) 

9402  FORMAT! IOX ,*  MOMENT 

PITCH 

TRUNK 

CUSHION 

1  FAN 

FAN 

GAP 

CONTACT 

*,/ 

2  IOX,* 

ANGLE 

PRESSURE  PRESSURE 

PRESSURE 

3RE 

FLOW 

AREA 

AREA  *,/ 

4  IOX,* 

FT  LBS 

DEG 

PS  FG 

PSFG 

PSFG 

5 

CU  FT/SEC 

SO  FT 

SQ  FT  *,/) 

00  9410 

IJ=1,10 

WR ITE (6, 9 3 05) TORZS (2,IJ),PHIS(2,IJ),PTKS(2,IJ) ,  PCHS (  2 ,1 J  ) »PCANS ( 2 , 
II J ) yQFANS ( 2,1 J) ,AGAPS(2,IJ),CCS(2,IJ) 

9410  CONTINUE 

WRITE (6, 93 25) 

WRITE ( 6 ,93 20)  YCTHS 

9320  FORMAT (////, 5 8X »5H  ROLL ,//, 1CX , 16H  GC  ELEVATION  =  , F12.5,/, IOX, 


2  19H  PITCH  ANGLE  *  0 

.0,/) 

WRITE(6 

,9403) 

FORMAT (IOX,*  MOMENT 

ROLL 

TRUNK 

CUSHION 

1  FAN 

FAN 

GAP 

CONTACT 

*,/ 

2  IOX,* 

ANGLE 

PRESSURE  PRESSURE 

PRESSUR 

3RE 

flow 

AREA 

AREA  *,/ 

4  IOX,* 

FT  LBS 

OEG 

PSFG 

PSFG 

PSFG 

5 

CU  FT/SEC 

SQ  FT 

SQ  FT  *,/) 

00  9420 

IJ*1,10 

WRITE (6,9305) TORXS( 3,1 J) ,THIS( 3,1 J) , PTKS ( 3, I J ) ,P CHS ( 3 , I J ) , P*ANS ( 3 , 
1IJ),0FANS(3,I J),AGAPS(3,IJ) ,CCS(3,IJ> 

9420  CONTINUE 
20  CONTINUE 

MASS* AMS/32 .2 
P AT* P PAT* 144.0 
C 
C 

c  ************************************************************************ 

C  **  **** *S******* *******  *********************  **********  ^** ************ ****  *: 
£********************»****************  ******************************* ****a: 

C  OYNAMIC  PART  OF  THE  PROGRAM 

£**»*********************************************************************--»■ 
c ***************************************************** ******************** 

c 

C  INITIALIZATION  OF  ACLS  TO  INPUT  STATE  VALUES 
C 

500  CONTINUE 

C ************ 

C  ESTIMATION  OF  PRESSURE , FLOW  INITIAL  CONDITIONS 
C 

IF ( INST .NE .26 )  GO  TO  777 
IF( IMC0E.NE.7)  GO  TO  777 
IF (TIM5.NE .PV ( 27) )  GO  TO  777 
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OTIMfsTINC 

IST«2  ♦  HAXO(-l,M!NO(5,I$TAT> ) 

GO  TO  (72,75,75,72 ,73,72, 75), 1ST 
7  2  PC  H«0  • 

PTK*0.8*QPl 
»PLM»0.8«QP1 
PPAN*PPLM 
CALL  FMFAN 
QFANX*QFAN 
GO  TO  7A 
C************ 

73  OO  70  IJ»1,10 

IF (X5 ,GT .YCGS ( 1, I J ) )G0  TO  71 

70  CONTINUE 

71  IF(IJ.EQ.1)IJ*2 
IJUIJ-i 

YCC-SI  J*YCGS(  l,IJ)-YCGS(I,IJl) 
IF(ABSCYCGSIJ).LE.O.OOOOOC1»GO  TO  72 
YFaCT*(X5-YCGS(1,IJ1)  )/(YCGS(I,IJ)-YCGS(l,IJin 
PCH*PCHS ( 1 ,1 Jl)+( PCHS (I,IJ)— PChS(I,IJ1) )*YFACT 
PTK*PTKSt 1  ,IJ1)>(PTKS(1,IJ)-PTKS(1,IJ1))*YFACT 
PPLM=PPLNS(1,IJ1)^(PPLMS(1,IJ)-PPLMS(1,IJ1) )*YFACT 
QF ANX*QFAN  S( 1 , I J I ) ♦(QFANS ( I , I J) —QFANSI 1,1 J1 ) )*YFACT 
PCH*AMAX1 ( PCH ,  0  . ) 

PTK*AMAXI(PTK,0.) 

?PLM»AMAX1(PPLN,0.) 

QFANX=AMAX1 (OFANX ,C •) 

74  CONTINUE 
XV*0. 

VV*0. 

ST 6*0. 


SET  IC  *0R  EASY  STATES  TO  FM  VALUES 
Xl*PPLM 
X2*PCH 
X3  *PTK 

xin«siE 

Xll-XV 

ri2*vv 

X13*0FANX 


CONTINUE 

i**  ****** 


EQUATE  FM  STATES  WITH  EASY  STATES 


PPLN-X1 

PCM*X2 

PTX*X3 

S  lw»<RT*X4 

YCG»X5 

DPHI*X6 

0THETA*X7 

THETAS*X8 

PH IE*X9 


o  no 


l 
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SIE-X10 
XV-Xll 
VV-X12 
QFANX*X13 
510  CONTINUE 
ICLN-0 

C  SET  INDICATOR  FOR  PLENUM-TRUNK  -CUSHION  MOOEL 
IPP*l 

PTESTP-AB  S ( PTK-PPLM )/PTK 
IF (PTSSTP.LE.O.l.ANO. INST.EQ.26) IPP*0 
C  08 TAIN  INITIAL  VALUE  OF  DVCHP  AND  INITIALIZE  GEOMETRY 
PCHSS» i PCH*(  PTK-PCH )*0 . 1 ) /PTK 
PR AT*PCHSS 

CALL  HYCURV(PRAT»HX ) 

HY»HYI*HX 

CALL  TRUNK (ISHAPS) 

IF  (ISHAPE.EQ.O)  WRITE«6,3999) 

IF ( ISHAPE. EQ. 0)G0  TO  299 
CALL  SEGMNT(l) 

CALL  COORON 
CALL  PROFILE 
CALL  CLRNCE 
CALL  SHAPE 2 
VCHSS*VCH 

CALL  HYCURV1 (PCH/PTK) ,HX) 

HYsHYI*HX 

CALL  TRUNK (ISHAPS ) 

IF ( ISHAPE.EQ.O)  WRITE (6,3999) 

IF{ISHAPE.EQ.O)GO  TO  299 
CALL  SEGMNT(l) 

CALL  COORON 
CALL  PROFILE 
CALL  CLRNCE 
CALL  94APE2 

OVCHP»  < VCH-VCHSS ) / ( <  PCH/PTK )-PCHSS ) 

INUM=0 
DVTK*0. 

DVCH»SINKRT*ACH 
CALL  STEQU 

OEFINE  EASY  DERIVATIVES  FROM  FM  DERIVATIVES 


IF ( IX l.NE • 
IFf  1X2. NE. 
IF (1X3. NE • 
IF ( 1X4. NE • 
IF( IX5.NE. 
IF ( 1X6. NE . 
IF  ( 1X7. NE  . 
IF  ( 1X8  ..NE  . 
IF(IX9.NE. 
IF(IX10.NE 
I r( IX 11 .NS 
IF(  1X12  .NE 
IF  |  IX13.NE 
CALL  OUTFM 


0)  X1D»0ERY(1) 

0)  X2D=DERY ( 2 ) 

0)  X30*0ERY (3 ) 

0)  X40*DERY(4) 

0)  X5D*0ERY ( 5 ) 

0)  X6D*0ERY(6) 

0)  X7C*0ERY (7) 

0)  X80*0ERY ( 8 ) 

0)  X90*0ERY f 9) 

.0)  XIOO*OERY ( 1C ) 
.0)  X11D*0ERY (11) 
.0)  X 120*0ERY ( 12 ) 
.0)  X13P*D£RY ( 13 ) 
(INUM) 
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non  o  o 
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60  TO  999 


777  CONTINUE 

EQUATE  FM  STATES  WITH  EASY  STATES 

PPLM*Xl 

PCH-X2 

PTK«X3 

SINKRT»X4 

YCG-X5 

0PHI«X6 

0THETA»X7 

THETAE*X8 

PHIE«X9 

SIE»X10 

XV«X11 

VV*X1 2 

QFANX»X13 

IFUNST .EQ.25.AN0.IMC0E.EQ. 7)  GO  TO  95 
0VCH*0. 

DVTK«0. 

OVCHPaO. 

CALL  HYCURVI ( PCH/PTK) »HX ) 

HY«HYI*HX 

CALL  TRUNK (ISHAPE) 

IF ( ISHAPE . EQ. 0)  WRITE(6,3999) 
IF(ISHAPS.EQ.O)GO  TO  299 
CALL  SEGMNT(l) 

CALL  COORON 
CALL  PROFILE 
CALL  CLRNCE 
CALL  SHAPE 2 
NFM*-10 
60  TO  98 
95  CONTINUE 
NFM»NFM-*-l 
98  CALL  STEQU 

C  0EFIN6  EASY  DERIVATIVES  FROM  FM  DERIVATIVES 
C 

IF(IXl.NE.O)  X1D«0ERYU) 

IF(IX2.NE.O)  X2D*0ERY (2 ) 

IF(IX3.N6.0>  X30*DERY (3 ) 

IF(IXA.NE.O)  X40«0GRY(A) 

IF ( 1X5. N6 .0)  X5D»0£RY ( 5 > 

IF(IX6.NE.C>  XAD*OERY ( 6 ) 

IF(IX7.NE.O)  X7D*0GRY (7) 

IF { 1X3. NE « 0)  X8D*0SRY<8) 

IF ( 1X9  «NE • 0)  X90*0ERY ( 9 ) 

I F ( 1X10. NE *0)  X100*0SRY(10) 

IF(IXll.NE.O)  X11D*DERY<  11 ) 

IF ( IX 12  .NE  .0)  X12D*0ERY ( 12 ) 

IF ( 1X13 .NE  .0)  X13D=0ERY( 13) 

IFINFM.LT.a.)  GO  TO  110 
INUM* 1 
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CALL  OUTFM(INUM) 

NF*»0 

IIO  CONTINUE 
999  CONTINUE 

3999  FO«MAT(//,40X,3IH*****  FAILURE  TO  CONVERGE  ♦****> 
GO  TO  300 
299  $K«1./HKILL 
SK1»SK*100. 

100  CONTINUE 
RETURN 
ENO 


Table  160:  LISTING  FOR  SUBROUTINE  FMFAN 

CPMFAN 

SUBROUTINE  FMFAN 
C  STATIC  FAN  MODEL  SUBROUTINE 
C  INPUT  PRESSURE  AND  OUTPUT  FLOW 
C 

COMMON/CONPRS/ALO,ALI»AL2»AL3fAL4tGO,Gl,G2fG3,G4,QPl 
COMMON/FLUIO/QFAN*QPLAT  »OPLCH tOPLTKt OTKAT  tOTKCHf OCHAT»PATFN»PFAN? 
l  PAT *TEMPA T »RHO* QVENT 
C 

C  COMPUTE  POWER  SERIES  TERMS 
PFAN2»PFAN*PFAN 
PFAN3»PFAN2*PFAN 
PPAN4*PPAN3*PFAN 

C  FAN  CURVE  FOR  STATIC  ITERATIONS 

QFAN»AL0*AL1*PFAN*AL2*PFAN2+AL3*PFAN3>AL4*PFAN4 

RETURN 

ENO 


on  o  oonoooonnnooo 


Table  161:  LISTING  FOR  SUBROUTINE  FMWRIT 

CFMWRIT 

SUBROUTINE  FMWRIT 


VERSION  1  MARCH  1979 

WRITTEN  BY  -  GS  OULESA 

PURPOSE  -  TO  PRINT  A  LIST  OF  INPUT  VARIABLES  FOR  THE  FOSTER 
MILLER  ACLS  TRUNK  COMPONENT  FM.  THE  LIST  INCLUOES 
A  DESCRIPTION  OF  THE  VARIABLES  ANO  THE  VALUES 
INPUT  BY  THE  USER, 


COMMON/COE FFS/CPA  »CAF  ,CPC  »CPT ,CTC,CGAP ,CTA,CVENT ,CKK 

COMMON/FOR TQ/FCP, FT P»FORCT  »F OF, FORCE Y, TCP X, TTPX ,TORQTX»TDFX , 
1T0RQUEX , TCPZ »  TTPZ , TORQTZ , TDFZ , TORFZ , TORQUEZ 
COMMON/ AREAV/S,AATFN,APLAT, APLCHtAPLTK ,ATKAT,ATKCH, AGAP,ATK,ACH , 
1  ATKCN,APRV,VCH,VTK,VPLM,VCHD,VFAN,ATKATC,ATKCHC 


C0MM0N/GE0MET/A,B,HYI,L,0,LS,LP,SH,NH,AH,NR,PHI1,PHI2,R1,R2,L1,L2» 
1A1 *A2»X1»X2»HY 
C 

COMMON/3TERM/311, 3 12, 813,821, 322, 823,831, 832, 833 
C 

COMMON/SHAPE/AGAPI { 100) , AGAPR ( 100 ) , ATK  K 100 ) , ATK  R( 100 ) , ATKCHI ( 100 ) 

1,  ATKCHR 1100), ATKATIl 100 ),ATKATR( 100) ,ACHI(100) ,ACHR(100) 

2,  ATKCNI (100) » ATKCNR (100) ♦ VCHl ( 100 ) , VCHR (100),V7X 1(100) » VTKR ( 100 ) 

3, XCH( 100) ,XTK(100) ,ZCH( 100), ZTK( 100), PERI (100) 

C 

COMMON/ST ATE /PPLM, PCH ,PTK, 51 NKRT ,YCG,OPHI ,0THETA ,THETAE ,PHIE , SI E 
1  ,XV,VV,QFANX 
C 

COMMON/VEHCL/MASS ,AIX,AIZ,AIXY,AIYZ,AIZX, CC ,GG, FF, A I F AN 
C 

COMMON/SPACE/N,M,BETA  ,OELX,XCX ( 1 00 ) ,ZCX( 100 ) ,XG( 100) ,YG( 100) , 
1ZG(100) ,SL4(100),YGH( 100) , ISEG( 100) , ITYP( 100 ), DELTA ( 100) , XCHI ( 100 ) 

2 , Z CHI  (100)  ,XCG 

C 

COMMON/LOAOS/FORCNS(3,10)  ,  CCS  (3,10),  YCGS(  3,10)  ,  PHIS  (3,10,  AGAPS  (3, 1C 
110 ) , PCHSI3 , 10 ) ,QFANS(3 , 10 ) , PFANS (3,10) ,PPLMS(3,10) , THIS  13, 10) , 
1FFS(3,10> ,TORXS (3,10) ,TORZS (3 , 10 ) ,PTXS (3,10) 

C 

COMMON/COMPRS/ALO,AL1,AL2,AL3,AL4,GO,G1,G2,G3,G4,QP1 

C 

COMMON/FLUrO/QFAN,QPLAT,QPLCH,QPLTK,QTKAT,QTKCH,OCHAT,PATFN,PFAN, 

1  ?AT,T5MPAT,RH0,QVENT 
C 

COMMON/OYNAMIC/TIME,FTIME,OTIME, IQ,NO,OVCH,OVTK,VELX,OERY( 13) 

1,0VCHP 

C 

C0MM0N/5STMD/GEC  *  OAMPC,U, OECCL ,HOC , PHA ,CENFX,CENFZ,ZEPRV,ZPRV 
i,0P2, SLOPE 
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C 

COMMON/LA 8 1/LA3EL  f  80) 

C 

COMMON/ST  ATIC/YSTRT,YSTOP,PSTRT,PSTOP,TSTRT,TSTOP 
1,PHIYC,TWEYC,YCPHI,YCTHE 
C 

COMMON/PRV/DPRV»PPLMB,XA,AKPRV,AMPRV,SPRV,NPRV,AVENT 

C 

COMMON/FLAGS/ ICLN »IOIF,IFLAG*ISTAT»IPP»IPRV  *MN  »NSTOP 
C 

COMMON/HC  UR/AHO , AH 1 ,AH2 , AH3 
C 

COMMON/SAVE/R1I »R2I»PHI1I»  PHI2I*L1I ,L2I,AlItA2I, 0202HBI ,0XANA8I , 

1  8  ETAD2I »  S INPHRI »  02 1 »  SINPH2 I, AIM A2, XII ,X2I,X12I,SI 
C  t*********************************************** ***************** 

c 


WRITE (6 

,50) 

WR ITS ( 6 

,70) 

WRITE (6 

,71) 

WRITE (6 

,72) 

WRITE (6 

,73) 

WRITE (6 

,74) 

WRITE (6 

,10C) 

WRITE (6 

,101) 

MASS 

WRITE (6 

,102) 

A IX 

WRITE (6 

,103) 

AIZ 

WRITE (6 

,104) 

AIXY 

WRITE (6 

,105) 

AIYZ 

WRITE (6 

,106) 

AIZX 

WR ITE (6 

,107) 

CC 

WRITE (6 

,100) 

GG 

WRITE (6 

,109) 

FF 

WRITE (6 

,110) 

PH  A 

WRITE (6 

,111) 

HOC 

WR ITE (6 

,112) 

WRITE (6 

,113) 

LS 

WR ITE (6 

,114) 

0 

WRITE (6 

,115) 

A 

WR ITE  16 

,116) 

8 

WRITE (6 

,117) 

L 

WRITE (6 

,118) 

HYI 

WRITE (6 

,119) 

NR 

WRITE (6 

,1 20) 

NH 

WRITE (6 

,121) 

«H 

WRITE (6 

,122) 

SH 

WRITE  16 

,123) 

LP 

WRITE (6 

,124) 

WRITE <6 

,125) 

AHO 

WRITE (6 

,126) 

AH1 

WRITE (6 

,127) 

AH2 

WRITE (6 

,128) 

AH3 

WRITE (6 

,129) 

WRITE (6 

,130 

vfan 

WRITE  16 

,131) 

AIFAN 

WRITE (6 

,132) 

WR ITE (6 

,133) 

GO 
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HR  ITS!  6  » 13**)  G1 
WR ITS (6,135)  G 2 
WRITE (6.136)  G3 
wRIT5(6,137)  G4 
WR IT6 (6*139)  ALO 
WRITE  16*139)  ALl 
WRITE (6,140)  A  L2 
WRITS  (6 *141)  AL3 
WRITEC6,I42)  AL4 
WRITE (6*143)  QPi 
WR ITS (6 ,144) 

WR ITE (6*145)  APLCH 
WR ITE ( 6 ,146 )  APLTK 
WRITE  16,147)  APLAT 
WRITE (6,143)  AATFN 
WRITE  (6, 149)  VPLM 
WRITE ( 6  * 150 )  VCHO 
WR ITE (6,15 1 ) 

WRITE (6, 15 2)  NPRV 
WRITE (6,153)  OPRV 
WR ITE (6,154)  PPLMB 
WR ITE (6, 15 5)  XA 
WRITE (6,156)  AKPRV 
WR ITE (6,157)  AMPRV 
WR ITE (6,158) 

WRITE (6,160)  PAT 
WRITE (6,161)  TEMPAT 
WR ITE ( 6,162 ) 

WR ITE (6,163)  M 
WR ITE ( 6 ,164)  N 

50  FORMAT! 1H1,///,43X,26HAIR  CUSHION  LANDING  SYSTEM// »42X»40HE AS Y  AO A 

2PTATI0N  OF  FOSTER-MILLER  PROGRAM) 

70  FORMAT!/, 15X,20(5H*****)/,15X,20(5H*****) ) 

71  FORMAT ( /, 33X , 40HTHI S  COMPONENT  MAY  3E  USED  IN  TWO  DIFFERENT  0P6R, 

2  13HATTNG  MODES  -,/,38X,35Hl.  FOSTER  MILLER  MODE  ( FMCFM  «LE .0. ) , 

3  /,41 X,44H IN  THIS  MOOE,  THE  PROGRAM  WILL  DUPLICATE  Th£,/ 

4  , 4lX , 42HF OSTER  MILLER/NASA  ACLS  PROGRAM.  THE  EASY,/ 

5  ,41X,46HC0MMAND  *SIMULATS*  WILL  INITIATE  THE  ANALYSIS.) 

72  FORMAT!/, 41X,46HIF  THE  DYNAMIC  PORTION  OF  THE  PROGRAM  IS  TO  BE,/ 

2  ,41X ,43H EXECUTED,  THE  USER  SHOULD  SET  *INT  M00E=7*.,// 

3  ,4lX,48HN0  EASY  ANALYTICAL  COMMONO  OTHER  THAN  ‘SIMULATE*,/ 

4  ,41X,28HSH0UL0  BE  USED  IN  THIS  MODE.,/ 

5  , 38X , 27H2 .  EASY  MODE  ( FMCFK.GT .0. ) ,/ 

6  ,41X,48HIN  THIS  MOOE,  EASY  ANALYTICAL  TECHNIQUES  SUCH  AS  ) 

73  F0RMAT(41X,<.3H*$TEADY  STATE*  ANO  ‘LINEAR  ANALYSIS*,  WHICH,/ 

2  ,41X,40HREQUIRE  MOOEL  LINEARIZATION  MAY  BE  USED.,// 

3  »  4LX ,49H I F  NON-LINEAR  SIMULATION  ( *S I MUL  ATE*)  IS  DESIRED,,/ 

4  ,4lX .33HTHE  USER  SHOULD  SET  *INT  M0DE=7*.,// 

5  ,  38X ,  5 5HN0TE  -  RESULTS  OF  *LlNEAR  ANALYSIS*  MAY  3=  ERRONEOUS  IF,/ 

6  ,45X,51HTh£  SYSTEM  IS  NOT  AT  A  STEADY  STATE  OPERATING  POINT) 

74  FORMAT (/,15X,2C(5H*****)/,15X,2C(5H*****)//) 

100  FORMATJ 51X  ,19HAIRCRAFT  PARAMETERS) 

101  F0RMAT(40X,33HT0TAL  WEIGHT  OF  AIRCRAFT  =  ,F10.3,  5H  LBS) 

102  F0RMAT(40X  ,33HROLL  INERTIA  =  ,F10.3,13H  SLUG  S 

2Q  ®T) 

103  cORMAT( ^OX ,33HPITCH  INERTIA 


,F1C.3,13H  SLUG  S 
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20  FT) 

104  FORMAT < 40X ,33hPR00UC7  OF  INERTIA— IXY  a  ,FI0.3,13H  SLUG  S 

20  FT) 

105  FORMAT 140X  »33HPRODUCT  OF  INERTIA-IYZ  a  ,F10.3,13H  SLUG  S 

20  FT) 

106  FORMAT l40Xt33HPR0DUCT  OF  INERTIA-IZX  a  ,F10.3,13H  SLUG  S 

20  FT) 

107  F0RMATf*0X,33HCG  HOR  OIS  FROM  CUSH  CNTR  -  CC  *  ,F10.3,  4H  FT) 

108  FORMAT (40X.33HCG  VER  OIS  FROM  CUSH  CNTR  -  GG  *  ,F10.3,  4H  FT) 

109  FORMAT (40X,33hCG  LAT  OIS  FROM  CUSH  CNTR  -  FF  =  ,F10.3,  4H  FT) 

110  F0RMAT(40X,33HPR0JECTED  HEAVE  AREA  a  ,F10.3,  7H  SQ  FT) 

111  F0RMAT140X.33HHEAVE  DRAG  COEFFICIENT  *  ,F10.3) 

112  FORMAT!//, 53X,16HTRUNK  PARAMETERS) 

113  FORMAT (40X ,33HSTRAIGHT  SECTION  LENGTH  a  ,F10.3,  4H  FT) 

114  FORMAT ( 40 X ,33HINNER  ATTACHMENT  DISTANCE  =  ,F10.3,  4H  FT) 

115  FORMAT  C  40 X  »33hH0R 1 Z  OIST  SET  ATTACH  PNTS  a  ,F10.3,  4H  FT) 

116  FORMATI40X ,33HVERT  OIST  BET  ATTACH  PNTS  =  ,F10.3,  4H  =T ) 

117  FORMAT! 40X.33HPERIMETER  OF  TRUNK  CROSSECTION  =  ,F10.3,4H  FT) 

118  FORMAT (40X,33HTRUNK  FREE  HEIGHT  HYI  a  ,F10.3,  4H  FT/) 

119  FORMAT ( 40X ,33HNUMBER  OF  ORIFICE  ROWS  a  ,16) 

120  FORMAT! 40X,33HNUM8ER  OF  ORIFICES  PER  ROW  a  ,  16) 

121  FORMAT ( 40X , 33HAREA  OF  EACH  ORIFICE  =  ,  F10.3,  7H  SQ  IN' 

122  FORMAT! 40X ,33HSPACING  BETWEEN  ORIFICE  ROWS  =  ,  F10.3,  4H  FT) 

123  FORMAT! 40X,27HPERIPHERAL  OISTANCE  BETWEEN/ 

2  40X  ,33HINNER  ATT ACHMT  PNT  FIRST  ROW  a  ,  F10.3,  4H  FT) 

124  FORMAT!/, 40X,31HTRUNK  CHARACTERISTIC  POLYNOMIAL/ 40X ,19HZ=HY/HYI ,  X 
2aPCH/®TK/<'*0X,  29HZ=AHC+AH1*X«-AH2*X*X  +  AH3*X*X*X/) 

125  FORMAT I40X ,33HAH0  TRUNK  COEFFICIENT  a  ,F 10.3) 

126  FORMAT !40X,33HAH1  TRUNK  COEFFICIENT  a  ,F10.3) 

127  FORMAT ( 40X ,33HAH2  TRUNK  COEFFICIENT  a  ,F10.3) 

128  FORMAT 140X ,33HAH3  TRUNK  COEFFICIENT  a  ,F10.3) 

129  FORMAT!//, 54X.14HF AN  PARAMETERS) 

130  FORMAT ( 40X  ,33HV0LUME  Oc  FAN  a  , F10.3,  7H  CU  FT) 

131  FORMAT 1 40X  ,33HFAN  AIR  INERTANCS  a  ,F10.3,19H  L8S-SSC 

2*SEC/FT**5  ) 

132  FORMAT !/,40X,29HFAN  CHARACTERISTIC  POLYNOMIAL/ 

2  40X,36HP=G0«-Gl*A«-G2*A*A«-G3*A*A*A-*-G4*A*A*A»A/ 

3  40X,41HQaAL0«-ALl*P+AL2*P*P*AL3*P*P*P  +  AL4*P*P*P*P/) 

133  FORMAT  I  <*0X  ,33HG0  FAN  COEFFICIENT  a  ,612.5  ) 

134  FORMAT! 40 X.33HG1  PAN  COEFFICIENT  a  ,E12.5  ) 

135  FORMAT !40X,33HG2  FAN  COEFFICIENT  a  ,E12.5  ) 

136  FORMAT (40X.33HG3  FAN  COEFFICIENT  =  ,E12.5  ) 

137  FORMAT !40X,33HG4  FAN  COEFFICIENT  a  ,612.5  ) 

138  FORMAT !4OX,33HAL0  FAN  COEFFICIENT  =  ,E12.5  ) 

139  FORMAT !*0X , 33HAL1  FAN  COEFFICIENT  =  ,  512.5) 

140  FORMAT! 40X ,33HAL2  FAN  COEFFICIENT  a  ,  512.5) 

141  FORMAT ! 40X ,33HAL3  FAN  COEFFICIENT  =  ,  E12.5) 

142  fqrmaT ( 40 X ,33HAL4  FAN  COEFFICIENT  =  ,  E12.5) 


1-3 

FORMAT! 40 X , 33HQPI  MAXIMUM  STABLE  °RE SSUR5 

= 

n 

H 

o 

• 

5H 

PSF) 

1 4«* 

FORMAT!// , 5 IX ,21HAIR  SUPPLY  PARAMETERS) 

145 

FORMAT (40X,33H0RIFICE  AREA-PLENUM  TO  CUSH 

s 

t FIC .3  , 

7H 

SQ 

FT) 

146 

FQRMA T! 40 X ,33H0RIFICc  AREA-PLENUM  TO  TRUNK 

s 

,  F10 .3 , 

7H 

SQ 

FT) 

147 

FORMAT! 40X ,33HAREA-PLENUM  TO  ATMOSPHERE 

s 

, F10 .3  , 

7H 

SQ 

FT  ) 

148 

FORMAT! 40X,33HcFFECTIVE  AREA-ATM  TO  FAN 

= 

,  P10  «3  , 

7H 

SQ 

FT) 

149 

c0RMAT(4CX ,33HPL=NUM  VOLUME 

s 

» F10  .3  * 

7H 

CU 

FT) 

150 

FQRMAT(40X,33H0EA0  VOLUME  OF  CUSHION 

s 

,  FlO .3 , 

7h 

CU 

CT ) 

467 
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151 

152 

153 

154 

155 

156 

157 

158 
160 

161 

162 

163 

164 


FORMAT ( // « 
FORMAT ( 40 X 
FORMAT ( 40X 
FORMAT ( 40X 
FORMAT! 40 X 
FORMAT (40X 
F0RMAT(40X 
FORMAT!//, 
FORMAT ( 40X 
2IN ) 

FORMAT  !40X 

FORMAT!//, 

F0RMAT(40X 

FORMAT! 40X 

RETURN 

END 


52X , 27HPR6SSURE  RELIEF  VALVE  (PRV)> 

,33HN UMBER  OF  PRV 

,33HDX AMTER  OF  PRV 

,33HPRESSURE  ACTUATION  LIMIT 

»33HSTR0KE  OF  PRV 

,33HSTIFFNESS  OF  PRV 

, 33HMASS  OF  PRV 

50X,24HENVIR0NMENTAL  CONDITIONS) 
,33HATMCSPHERIC  PRESSURE 

*33HAMBI ENT  TEMPERATURE  s 

51X , 2 1HS IMULATION  PARAMETERS) 

• 33HSTRA IGHT  SEGMENTS/4  , 

,33HCURVED  SEGMENTS/4  = 


,  16) 

♦  F10 .3 ,8H 
,F10.3,5H 
, F10 .3 ,8H 
,F10.3,9H 
,F10.3,4H 


INCHES) 
PSI  ) 
INCHES) 
L3/INCH ) 
LB) 


,F10.3,11H  LBS/SQ 

, F10 .3 ,  7H  DEG  F) 

,  16) 

,  16) 


on  oonooooooooooooonnnoonoooonooooooon 
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n 


CPN 


SUBROUTINE  FN ( FANFLO. STALL ,T2 , W2 ,P IN ,T IN , PR , P2, P AM , TAM, 
l PR M, TRM ,MU I »NUF  »COR  »RPM ) 

PURPOSE  -  COMPONENT  FN  DETERMINES  THE  OUTPUT  FLOW 
RATE  ANO  OUTPUT  TEMPERATURE  OF  A  FAN. 


METHOO  -  THE  USER  MUST  INPUT  TABULAR  VALUES  OF 

FLOW  AS  FUNCTION  OF  BOTH  PRESSURE  RATIO 
ANO  FAN  RPM.  THIS  IS  AN  INLET  COMPONENT.  THE 
RAM  EFFECT  CAN  BE  INPUT  BY  THE  USER  ALONG 
WITH  THE  FAN  EFFICIENCY.  IF  STALL  DATA  IS 
iNPUTt  AN  ERROR  MESSAGE  IS  PRINTEO  WHENEVER 
THE  FAN  IS  OPERATING  IN  THE  STALL  REGION. 


INLET 


WRITTEN  BY  -  PAUL  R.  PERKINS  0EC.78 

INPUT/OUTPUT  LIST 

FANFLO  TABLE  OF  FAN  OUTPUT=F ( PR , RPM)  L3/SEC  INPUT  TABL 

STALL  TABLE  OF  STALL  POINTS=F(PR)  LB/SEC  INPUT  TA3L 

P2  OUTPUT  PRESSURE  PSIA  INPUT  VAR 

PAM  AMBIENT  PRESSURE  PSIA  INPUT  VAR 

TAM  AMBIENT  TEMPERATURE  DEGR  INPUT  VAR 

PRM  RAM  PRESSURE  (IOOP/C  RECOVERY)  PSIA  INPUT  VAR 

TRM  RAM  TEMP  (IOOP/C  RECOVERY)  DEGR  INPUT  VAR 


NUI 

INLET  RAM  EFFICIENCY 

— - 

INPUT  PAR AM 

NUF 

FAN  EFFICIENCY 

— 

INPUT  PAR AM 

COR 

THIS  IS  A  LOGICAL  VARIABLE  WHICH 
ELIMINATES  THE  FAN  FLOW  CORRECTIONS 
(I.E.  FOR  PIN/PO  ANO  TIN/TO  )  WHEN 
COR*O.C. 

INPUT  PARAM 

RPM 

fan  speed 

RPM 

INPUT  VAR 

PIN 

FAN  INPUT  PRESSURE 

PSIA 

OUTPUT  VAR 

tin 

FAN  INLET  TEMPERATURE 

DEGR 

OUTPUT  VAR 

T2 

FAN  OUTLET  TEMPERATURE 

DEGR 

OUTPUT  VAR 

PR 

PRESSURE  RATIO  P2/PIN 

— 

OUTPUT  VAR 

W2 

FAN  FLOW  RATE 

LB/SEC 

OUTPUT  VAR 

DIMENSION  FANFLO (80), STALL  1^0) 

CQMMON/CIO/IREADt iWRITEtlDlAG 
COMMON/ERMESS/IFATALt I ERR 
REAL  NUItNUF 
IF  (NIJI.EQ..  99999)  NUI=0. 

IF (NUF.EQ.. 99999)  NUF*1.0 
IF (PRM.EO. .99999)  PRM=PAM 
IF (TRM. EO.. 99999)  TRM=TAM 
IF (COR. EO.. 99999)  C0R=0.0 
CALCULATION  OF  THE  INPUT  PRESSURE  ANO  TEMPERATURE 
WITH  RAM  EFFECTS. 

P IN»( PRM-PAM)*NUIf»AM 
TTN*(TR*-TAM)*NUI«-TAM 
PRsP2/PIN 

CALCULATION  OF  THE  GAS  CONSTANTS  ANO  THE  RATIO  OF 
SPECIFIC  HEATS  3ASE0  ON  INLET  TEMPERATURE. 
CP*SHCP(TIN,0.0) 

R*5?. 35 
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Table  162:  LISTING  FOR  SUBROUTINE  FN  (CONCLUDEO) 


GA  MMA  *  1  ,«-R  /  ( 778  .  *C  P-R  ) 

G1 =( GAMMA— 1 • ) /GAMMA 

C  CALCULATION  OP  THE  CHANGE  IN  AIR  TEMPERATURE  PRODUCED 
C  0Y  THE  FAN  ANO  THE  RESULTING  OUTPUT  TEMPERATURE. 

06 LT*<TIN/NUF)*(PR**G1-1.) 

T2*TIN«-0ELT 
NX=FANFLO( 2) 

NY=FANFLO ( 3 ) 

C  TABLE  LOOK  UP  ROUTINE  FOR  DETERMINING  THE  IDEAL  FAN  FLOW 
C  RATE  GIVEN  THE  PRESSURE  RATIO  ANO  FAN  RPM. 

WI 06AL*TBLU2  <  PR , RPM ,FANFLO (4*NY » , FANFLOt  4 1 , FANFLO( 4+NX+NY > , I , I , 
INX,NY,NX,NY> 

RATI0=1.0 

C  CORRECTION  OF  THE  IDEAL  FLOW  RATE  FOR  PIN/PO  AND  TIN/TO 
C  RATIOS.  THIS  CORRECTION  IS  NOT  MADE  IF  C0R*0.0. 

IF (COR. EO. 0.0)  GO  TO  17? 

06 LTA=PIN/ 14.696 
TH ETA = TIN/ 5 18 .7 
RATIO=DELTA/SORT( THETA) 

C  CORRECTED  FAN  FLOW  RATE. 

177  W2=WlDEAL*RATI0 

C  LOGIC  TO  DETERMINE  IF  THE  FAN  IS  OPERATING  IN  THE 
C  STALL  RANGE.  IT  USES  THE  TABLE  LOOK  UP  OATA  FOR 
C  FAN  STALL  POINTS  -VS-  PRESSURE  RATIO.  IF  STALL  DATA 
C  HAS  NOT  BEEN  INPUT,  THIS  SECTION  IS  SKIPPED. 

IF (STALL(2).E0. 1.99999)  GO  TO  277 
NX=STALL(2 ) 

WSTALL=TBLU1  (PR  , STALL  (<»)  ,  STALL(4t-NX  )  ,1  ,NX  ) 

IF(WSTALL.LE.WIDEAL)  GO  TO  277 
IF(IERR.NE.l)  GO  TO  277 
WRITE! IWRITE, 270) 

27C  FORMAT ( 10X  »42HTHE  FAN  IS  OPERATING  IN  THE  STALL  REGION.  ) 

277  RETURN 
END 
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Table  163:  LISTING  FOR  SUBROUTINE  FNFLOW 


CFNFLOWS 

SUBROUTINE  FNFLOW ( P1,P2»T»CA»AK»FN»W) 

PURPOSE  -  TO  CALCULATE  FLOW  (W)  ANO/OR  CHESTER  SMITH  COMPRESSIBLE 

FLOW  FUNCTION  ( FN )  GIVEN  UPSTREAM  ANO  DOWNSTREAM  PRESSURES 
I  PI  ANO  P2> f  TEMPERATURE  IT),  EFFECTIVE  AREA  CCA)  ANO  LOSS 
FACTOR  IAK). 

*  NOTE  *  IF  P2  IS  GREATER  THAN  PI,  OUTPUTS  FN  ANO  W  WILL 
BE  NEGATIVE.  FN  IS  BASEO  ON  P/PS. 

FOR  ORIFICE  CALCULATIONS,  INPUT  AK*l. 

METHOO  -  USES  TABULAR  OATA  FOR  PN»F( PRESSURE  RATIO) 


WRITTEN  BV  -  ADAM  LLOYD  LATEST  REVISION  NOV  75 


LIMITATIONS  -  K  FACTOR  MUST  NOT  EQUAL  ZERO 


INPUT/OUTPUT  LIST 


PI 

UPSTREAM  PRESSURE 

PSIA 

INPUT 

P2 

DOWNSTREAM  PRESSURE 

P  SIA 

INPUT 

T 

TEMPERATURE 

OEGR 

INPUT 

CA 

EFFECTIVE  AREA 

IN2 

INPUT 

AK 

K  FACTOR  (MUST  NOT  EQUAL  ZERO) 

— 

INPUT 

FN 

COMPRESSIBLE  FLOW  FACTOR 

— 

OUTPUT 

W 

FLOW  RATE 

LB /MIN 

OUTPUT 

DIMENSION  ANF (34) 
COMMON/ERMESS/IFATAL, IERR 
COMMON/CI O/IREAO, I WRITE , 1 01 AG 


OATA  ANF/ 


1 

0.0 

,.1453 

, .2044 

,.2491 

,.2862 

,.3183 

, .3469 

,.3729 

9 

2 

.3966 

,  .4186 

, .4390 

,.4582 

, .4762 

,.539A. 

,  .5916 

, .6361 

9 

3 

.6745 

,.7081 

,.7378 

,.7642 

,.8188 

,.8609 

,.8939 

,.9199 

9 

4 

.9404 

,.9566 

, .9693 

,.9791 

, .9866 

,.9920 

,.9959 

,.9984 

9 

5 

.9997 

,1.0 

/ 

IF(P2.GT. 

P1)G0  TO 

100 

PS*(P1*(AK-1.)«-P2)/AK 

IF (PS. GE.0.)PS=AMAX1( PS, 0.00001) 

IP(PS.LT.0.)PS*AHINl(PS,-.00001) 

PR*Pt/OS 

IF (PR .LT.O. )G0  TO  10 
Xl*l.«-  200.*(PR-1.) 

IFIPR.GT. 1.06)  Xl=13.  ♦  50. *( PR-1.06) 
IF(PR.GT. 1.20)  Xl=20.  ♦  20. *( PR-1.20 > 
IF (PR. GT. 1.90)  GO  TO  10 
I*X1 

FN*(  XI  — I  )  *  (  ANF  ( I>1 )— ANF ( I ) ) ♦ ANF ( I ) 

GO  TO  20 
C  CHQ<  EO  FLOW 

10  cN«l. 

20  W»3l.9*FN*CA*Pl/SQRT(T> 

IFIPl.LT.O.)  W*-W 
GO  TO  200 
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Table  163:  LISTING  FOR  SUBROUTINE  FNFLOW  (CONCLUDED) 


C  REVERSE  PLOW  -  FN  AND  W  ARE  NEGATIVE 
100  PS*(P2»(AK-1. )  *P1 )  /  AK 

IP(PS.GE.C .)PS=AMAX1( PS, 0.00001) 
IF(PS.LT.0.)PS=AMINl(PS,-.000Ol) 
PR*P2/»S 

IF ( PI . LT.O . )G0  TO  150 
IF(PR.LT.O.)GO  TQ  HO 
Xl»l.*200.*(PR-l.) 

I F ( PR .GT • 1 .06)  Xl=13.  50. *i PR-1.06 ) 

IF ( PR .GT. 1.20)  Xl«20.  ♦  20. *< PR-1.20 ) 
IF { PR .GT. 1 .90  )  GO  TO  110 
I  =  X1 

FN*— ( XI— I ) *( ANF (1*1 )— ANF ( I ) )  -  ANF(I) 
GO  TO  120 

C  CHOKED  REVERSE  FLOW 
110  FN=— 1 • 

120  W»31.9*FN*CA»P2/$QRT(T) 

GO  TO  200 

C  REVERSE  FLOW  -  NEGATIVE  PI 
15C  FM— 1.  ♦,1*P1 

W»31.9*FN*CA*P2/SQRTIT) 

IF(P2.LT.O.)  W=— W 
200  RETURN 
END 
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Table  164:  LISTING  FOR  SUBROUTINE  FORCE 


CFORCE 

SUBROUTINE  «ORCE 

C  FORCES  ANO  TORQUES  ASSOCIATED  WITH  A  PARTICULAR  ACLS  ORIENTATION 
C  ARE  CALCULATED 
C 

COMMON/ESTMO/GEC » OAMPCtU  tOECCL »HDC  , PHA ,CENFX,CENFZ,ZSPRV,ZPRV 

1, QP2, SLOPE 

COMMON/FLUID/QFAN,QPLAT,QPLCH,QPLTK,QTKAT,QTKCH,QCHAT,PATFN,PFAN, 

1  PATfTEMP AT  ,RHO,QVENT 

COMMON/OYNAMIC/TIME ,FTIME ,OTIME  » IQ»NQ, DVCH,OVTK»  VELX, DERY (13) 
l.OVCHP 

COMMON/SPACE/N,M, BETA, OELX,XCX( 100), ZCX( 100 ),XG(  100) ,YG( 100) , 

1ZG < 100 >,SL4( 100 ),YGH( 100), ISEG( 100 ), ITYP( 100) , DELTA (100), XCHI (ICC) 

2, ZCHI (100 ) ,XCG 

COMMON/VE HCL/MASS  »AIX,AIZ,AIXY,AIYZ»AIZX»  CC ,GG, FF, AIFAN 
COMMON/AREAV/S, AATFN, APLAT,APLCH ,APLTK , ATKAT, ATKCH, AGAP , ATK , ACH , 

1  ATKCN, APR  V,  VCH , V  TK , V  PLM , VCHD , V  F  AN , ATK  ATC , A TKCHC 
COMMON/SHA  PE/AGAPI ( 100 ) , AGAPR ( 100 ) , ATK I ( 1 00 ) , ATK R( 100 ) , ATKCHl ( 100 ) 

1 ,  A  TKCHR (100) , ATKAT I (100), ATK ATR( 100) ,ACHI ( 100 ) , ACHR ( 100 ) 

2,  ATKCN I (100) ,ATKCNR(100) ,VCHI (100), VCHRl 100), VTK 1(100 >,VTKR( 100) 

3, XCHI100) ,XTKl 100), ZCH( 100 ) ,ZTK ( 100 ), PERI ( 100 ) 

COMMON/ST ATE/PPLM,PCH,PTK,SINKRT,YCG, DPMI, OTHETA,THETAE, PHIE, SI E 
1  ,XV,VV,OFANX 

COMMON/FORTQ/FCP, FTP.FORCT ,FOF , FORCEY , TCPX, TTPX , TORQTX,TDFX , 

1  TORQUE  X, TC  PZ ,  TTPZ  ,  TOR QTZ  ,  TDFZ  ,T0 RFZ  ,  TORQU  EZ 
C0MM0N/GE0MET/A,8,HYI,L,D,LS,LP,SH,NH, AH,NR,PHI1,PHI2,RI,R2,L1,L2, 
1A1,A2,X1,X2,HY 

COMMON/FLAGS/ICLN,IDIF,IFLAG,ISTAT,IPP,IPRV,MM,NSTOP 

c 

C  CALCULATE  TRAN SCENOENTALS  ONLY  ONCE 

CSSCS=COS ( PHIE )*S IN (THETAE)*SIN( SIE)-COS( SIE)*SIN( PHIE) 

CPCT=C0S(PHIE )*COS (THET  AE ) 

C  CLEAR  TOTAL  FORCES  ANO  TORQUES  TO  ZERO 
F0RCT=0.0 
TTPX»0.0 
TTPZ=0.0 
TCPX*0.0 
TCPZ*0.0 
TORFZ*0.0 
TORQTXaO.O 
TORQTZaO.O 

C*** ****************************************  **********  ******************««: 

C  FORCES  ANO  TORQUES  INDEPENDENT  OF  SEGMENTS  INDIVIDUALLY 

£ A****************************************** ************* ******  ******  ****«•- 

C  HEAVE  FORCES  CUSHION  AND  TRUNK 
PCP*PCH*ACH 
ptp*ptk*atkcn 

C  COMPUTE  VELOCITY  FOR  ORAG  FORCE 
V»VELX*CSSCS*SINKRT*CPCT 
SIGN»1. 

IF(V,GT .0.0) SIGN*- 1.0 
C  HEAVE  ORAG  FORCE 

F0F*0 . 5*H0C*PHA*RH0*V*V*SIGN 
C  ORAG  TORQUE 

TOFZ«FOF*CSNFX 

TOFX*-FOF*CENFZ 


Table  164:  LISTING  FOR  SUBROUTINE  FORCE  (CONCLUDED) 


C*«*  ****  ********  *******  ********  *******  ******  **********  ***************  **** 

C  FORCES  ANO  TORQUES  DEPENDENT  ON  SEGMENTS  INDIVIDUALLY 

£**m*m*+mm**m*m+*+*+***it*******-****+m+  ******  *#*41******  ******************* 

C  SUM  INDIVIDIDUAL  SEGMENTS  TO  FINO  TOTALS 
DO  10  1=1 tNSTOP 

C  CUSHION  PRESSURE  TORQUES 

TCPZ»TCPZ-*-(XCH(I)-CC)*PCH*(ACHI(  I  )-ACHR(  I) ) 
TCPX=TCPX-(ZCH(I)-FF)*PCH«(ACHI(I)-ACHR(I)) 

C  TOROUES  DUE  TO  CONTACT  FORCE 

TTPZ=TTPZ*( XTK( I) -CC) «( PTK*( ATKCNI ( I J+ATKCNR ( I ) ) ) 
TTPX*TTPX-(ZTK(I)-FF)*(PTK*< ATKCNI1 I )♦ ATKCNR( I ) ) ) 

IFUATKCNI  m.GT.O.O).OR.(ATKCNR<I).GT.O.n  GO  TO  11 
GO  TO  10 

C  DAMPING  FORCE  ANO  TORQUES 

1 1  VELT=SINKRT*CPCT+DPHI*( XTK ( I )— CC )— DTHETA* ( ZTK ( I )— FF ) 
FORD=-VSLT*OAMPC*PERI ( I ) 

FORCT=FORCT*FORD 
TORQT Z=TOR  QTZ*  ( XTK ( I ) -CC ) *FOR  D 
TORQTX=TORQTX— (ZTK ( I ) — FF) *FORD 
IF(VELX.EQ.O.O)  GO  TO  10 

C  FRICTION  TORQUE 

TORPZ=TORF  Z— ( GG+YGH (I ) ) *PTK*( ATKCNI ( I ) +ATKCNR ( I ) )*U 
10  CONTINUE 

C ***************************************************** ******* ************ 

C  SUMMATION  OF  FORCE  AND  TORQUE  COMPONENTS 

C******************************************* ***************************** 

C  TOTAL  HEAVE  FORCE 

FORCE Y*(FCP>FTP+FORCT>FDF)*CPCT 

C  TOTAL  TORQUE  X  AXIS 

TORQUEX=TCPX*TTPX*TORQTX*TDFX 

C  TOTAL  TORQUE  Z  AXIS 

TORQUEZ=TCPZ«-TTPZ*TORQTZ*TOFZfTORFZ 

RETURN 

ENO 
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Table  165:  LISTING  FOR  SUBROUTINE  FR 


CFR 

SUBROUTINE  FR( PRTAB,ET, T2 , W2 ,Pi , PLOOT, IPl, WCO.WKC, ETC , 

1  T1(W1,P2,EN,UA,TAM) 

PURPOSE  -  ANALYSIS  OF  COMPRESSOR  OR  FAN,  WITH  CAPABILITY  TO 
MOOEL  FLOW  IN  SECOND  QUA ORAN T  (REVERSE  FLOW)  AND 
FOURTH  QUADRANT  (PRESSURE  RATIOS  LESS  THAN  ONE). 


METHOO  -  USES  INPUT  TABLES  DEFINING  STEADY  STATE  CHARACTERISTICS 
OF  COMPRESSOR.  UNLIKE  CM  AND  CN,  INDEPENDENT  VARIABLES 
ON  MAPS  ARE  CORRECTED  SPEED  ANO  CORRECTED  FLOW.  PRESSURE 
RATIO  ANO  EFFICIENCY  ARE  DEPENDENT  VARIABLES. 

NOTE  THAT  IN  THE  FOURTH  QUADRANT  (TURBINE  REGION),  A 
POSITIVE  VALUE  OF  EFFICIENCY  CORRESPONDS  TO  A  TEMPERATURE 
DROP,  AND  NEGATIVE  TO  TEMPERATURE  RISE. 

HEAT  TRANSFER  TO  AMBIENT  CALCULATED  FROM  INPUT 
VALUE  OF  UA 

LIMITATIONS  -  TEMPERATURE  CALCULATIONS  BASED  ON  TI  BEING  THE  INLET 
TEMPERATURE  FOR  BOTH  POSITIVE  ANO  REVERSE  FLOW. 

MAX  ALLOWABLE  SIZE  OF  TABULAR  ARRAYS  20X10  PER  TABLE 

WRITTEN  BY  AOAM  LLOYD  AS  COMPONENT  *CR*  IN 
ECS  LIBRARY  MARCH  1977 

MOOIFIED  BY  -  MAHINOER  WAHI  AUGUST  1977 


INPUT/OUTPUT  LIST 


PR 

PRESS  RATIO*F(WCO,N/SQRT(T) > 

— 

INPUT 

TABLE 

ET 

EFFICIENCY  *F (WCO  »N/SQRT( T ) ) 

— 

INPUT 

TABLE 

T2 

OUTLET  TEMPERATURE (PORT  NO  2) 

DEGR 

OUTPUT 

VAR 

W2 

OUTLET  FLOW 

LB /MIN 

OUTPUT 

VAR 

PI 

INLET  PRESSURE! PORT  NO  1) 

PSIA 

OUTPUT 

STATE 

PIOOT 

INLET  PRESSURE  DERIVATIVE 

PSIA/SEC 

OUTPUT 

DERI  V 

IPl 

INTEGRATOR  CONTROL 

— 

PROGRAM  VAR 

WCO 

COMPRESSOR  CORRECTED  FLOW 

— 

OUTPUT 

VAR 

WKC 

COMPRESSOR  WORK  INPUT 

FT /L8F/SEC 

OUTPUT 

VAR 

ETC 

COMPRESSOR  EFFICIENCY 

- — 

OUTPUT 

VAR 

Tl 

INLET  TEMPERATURE!  PORT  NO  1) 

DEGR 

INPUT 

VAR 

Ml 

INLET  FLOW  RATE 

L8/MIN 

INPUT 

VAR 

P2 

OUTLET  PRESSURE (PORT  NO  2) 

PSIA 

INPUT 

VAR 

EN 

COMPRESSOR  SPEED 

RPM/1000. 

INPUT 

VAR 

UA 

OVERALL  CONDUCTANCE 

BTU/HRDEGR 

INPUT 

PARAM 

TAM 

EFFECTIVE  LOCAL  AMBIENT  TEMP 

OEGR 

INPUT 

PARAM 

OIMENSION  PRT AS ( 1 ) , £T ( 1 ) 

COMMON/ERMESS/IFATAL, IERR 
COMMON/CIO/ IRE AO, I WRITE , 1 01 AG 

CALCULATE  GAS  CONSTANTS  ANO  RATIO  OF  SPECIFIC  HEATS,  3ASE0  ON 
INLET  TEMPERATURE 
CP*SHCP(T1,0. ) 

R=(53.3> 

GAMMA =*l.*R/(  778. *CP-R) 

G1 * (GAMMA- 1.) /GAMMA 
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Table  165:  LISTING  FOR  SUBROUTINE  FR  (CONCLUDED) 


C  CALCULATE  INTERNAL  TEMPERATURE  TI  BASED  ON  INPUT  VALUE  OF  UA  AND  W1 
W9AR*AMAX1 (ABStWl ) ,  .01) 

YI*TAM-*>(T1-TAM)/EXP(UA/(CP*WBAR)  ) 

C  WARNING  DIAGNOSTIC  IF  TEMPERATURE  CHANGE  EXCEEDS  300  DEGR 
IF ( ASS ( Tl-TT ) .LE.300. ) GO  TO  10 
IFCT1 .GT.TI )TI*T1-3C0. 

IF(TI.GT.Ti)TI*Tl«-300. 

C  TEST  FOR  DIAGNOSTIC  PRINTOUT 
IF ( IERR.NE .1 >G0  TO  10 
WRITE { IWR ITE»9999) 

9999  FORMA  TU0X,44HN0N  FATAL  ERROR  CALLED  FROM  FAN  COMPONENT  FR/ 

l  10X.65HTEMPERATUR6  CHANGE  FROM  HEAT  TRANSFER  TO  AMBIENT  EXCEEDS  3 
200  OEGR/iOX,23HCHECK  INPUT  VALUE  OF  UA ) 

10  CONTINUE 

C  CALCULATE  COMPRESSOR  PERFORMANCE  FROM  INPUT  TABLES 
ENC»1000.*EN/SQRT(TI> 

WCO*Wl*SQRT(TI)/Pl 
N1*PRTA3C  3 )+4 
N2*PRTA8 ( 2 ) ♦PRTAB ( 3 ) *4 
N3*PRTAB(2) 

Na.»PRTAB(3) 

PR*TBLU2( WCO »  ENCtPRTAB ( N1 ) »PRTAB { 4) »  PR  TAB (N2) yl» l»-N3»-N4»N3»N4) 
N1*ET(3H4 
N2*ETt  2)+6T!3 )*4 
N3*ET (2) 

N4=6T ( 3 ) 

ETC=TBLU2(WC0,SNC tET(Nl) ,ET(4),ET(N2 ),l, 1,-N3»-N4?N3,N4) 

IF ( ETC.LT.O. ) GO  TO  15 
ETC=AMAX1 ( ETC  » .01 ) 

60  TO  20 

15  ETC*AMIN1(ETC,-.01) 

20  CONTINUE 
W2=W1 

0ELT*TI*IPR**Gl-l. )/ETC 
T2-TI+DELT 
TM*<TI*T2>/2 . 

CPM»SHCP(TMf0.) 

WKC=W2*CPM*DELT*12.967 

C  CONSTANT  =773/60  AND  CONVERTS  WORK  TO  FT-L3F/SEC 
PR* AM AX 11 PRy .01) 

P1CAL-P2/RR 

IPt IPl.NE .0)P1DOT* ( P1CAL-P1  )/.01 
RETURN 
END 
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Table  166:  LISTING  FOR  SUBROUTINE  FS 


SUBROUTINE  FS (T2,W2,T3,W3 ,Pl,PlOOTfIPl,Tl,Wl,P2,P3,AK2,02, 

1  AK3 »  D3,DHY,AHT  , TAM,HO » VOL »  FC ) 

PURPOSE  -  ANALYSIS  OF  FLOW  SPLIT,  WITH  ONE  INLET  PORT  AND  TWO 
OUTLET  PORTS 


METHOO  -  SIMILAR  TO  DUCT  MODEL  OE 


LIMITATIONS  -  AS  FOR  DE 


WRITTEN  BY  ADAM  LLOYD  AS  COMPONENT  *SP*  IN 
ECS  LIBRARY  NOV.  1975 


MOOIFIEO 

BY  -  MAHINOER  WAHI 

AUGUST  1977 

INPUT/OUTPUT  LIST 

T2 

OUTLET  TEMPERATURE  )PORT 

DEGR 

OUTPUT  VAR 

W2 

OUTLET  FLOW  )  NO  2 

LB /MIN 

OUTPUT 

VAR 

T3 

OUTLET  TEMPERATURE  1P0RT 

DEGR 

OUTPUT  VAR 

W3 

OUTLET  FLOW  )  NO  3 

LB/M IN 

OUTPUT 

VAR 

PI 

INLET  PRESSURE  >PORT 

PSIA 

OUTPUT 

state 

P1D0T 

INLET  PRESSURE  DERIVATIVES  1 

PSIA/SEC 

OUTPUT 

DERIV 

IP1 

INTEGRATOR  CONTROL 

— 

PROGRAM  VAR 

T1 

INLET  TEMPERATURE  )PORT  NO  1 

OEGR 

INPUT 

VAR 

Wl 

INLET  FLOW 

LS/M IN 

INPUT 

VAR 

P2 

OUTLET  PRESSURE  (PORT  NO  2) 

PSIA 

INPUT 

VAR 

P3 

OUTLET  PRESSURE  (PORT  NO  3> 

PSIA 

INPUT 

VAR 

AK2 

K  FACTOR  (PORT  NO  2) 

— 

INPUT 

PARAM 

02 

DIAMETER  (PORT  NO  2) 

IN 

INPUT 

PARAM 

AK3 

K  FACTOR  (PORT  NO  3) 

— - 

INPUT 

PARAM 

03 

OIAMGTER  (PORT  NO  3) 

IN 

INPUT 

PARAM 

OHY 

HYORAULIC  DIAMETER  1  TO  CALCULATE 

IN 

INPUT 

PARAM 

AHT 

HEAT  TRANSFER  AREA  )  UA 

FT2 

INPUT 

PARAM 

TAM 

EFFECTIVE  LOCAL  AMBIENT  TEMP 

OEGR 

INPUT 

PARAM 

MO 

EXTERNAL  HEAT  TRANSFER  COEFFICIENT 

BTU/FT2 

HR  DEGR 

INPUT 

PARAM 

VOL 

INTERNAL  VOLUME 

FT3 

INPUT 

PARAM 

FC 

FREOUENCY  CONTROL  ON  PI . (FC.GE. 1 . ) 
A  VALUE  OF  FC  GREATER  THAN  1. 
DECREASES  FREQUENCY  RESPONSE  OF  PI 
CORRESPONDINGLY 

INPUT 

PARAM 

COMMON/ERMESS/IFATAL, IERR 
COMMON/CI 0/ IREAO , IWRI TE , I DI AG 

C  CALCULATE  GAS  CONSTANT  AND  RATIO  OF  SPECIFIC  MEATS,  8AS60  ON 
C  INLET  TEMPERATURE 
CP*SHC° (T 1 ,0. ) 

R»53.3 

Gamma *i .♦r/( 778.*cp-r ) 

G !*!•/( GAMMA-l • ) 


Table  166:  LISTING  FOR  SUBROUTINE  FS  (CONCLUDED) 


G2*(GAMMA-l.)/2. 

C  CALCULATE  OUTLET  FLOWS  BASED  ON  INLET  TEMPERATURE 
C A 2*. 785398*02*02 

CALL  FNFL0W(P1 »P2  »T 1»C A2  * AK2 » FN» W2) 

CA 3*. 735398*03*03 

CALL  FNPL0W(P1,P3,T1,CA3,AK3, FN.W3) 

C  CALCULATE  OVERALL  CONDUCTANCE  (UA)  BASED  ON  AVERAGE  FLOW 
W8AR* (ABS(W1)+A8S(W2)+ABS(W3) >/3. 

WBAR*AMAX1(WBAR,.01) 

C  CALCULATE  EFFECTIVE  LENGTH  AL  FOR  HEAT  TRANS  COEFF  CALCULATION 
AL»183.35*AHT/(0HY*0HY) 

C  CONSTANT  183. 35*144. /(PI/4. )  AL  IS  IN  FEET. 

HINT* HI (IfTlfTl»W8ARfO. »0HY • A Lt  0 . ) 

C  THE  INPUT  VALUE  OF  THE  EXTERNAL  HEAT  TRANSFER  COEFFICIENT  IS  BASED 
C  ON  THE  INTERNAL  WETTEO  AREA.  HENCE  UA  IS  GIVEN  3Y 
UA  *  AH  T*HIN  T*HO/ ( SO . * ( H I N  T+HO  > ) 

C  UA  IS  IN  BTU/MIN  OEGR 

C  CALCULATE  OUTLET  TEMPERATURES  T2  AND  T3 
T2*TAM+(T 1— TAM) /EXP (UA/ (CP*W8AR ) ) 

T3*T2 

C  WARNING  DIAGNOSTIC  IF  TEMPERATURE  CHANGE  EXCEEDS  300  OEGR 
IF ( ABS(T1— T2 ) .LE.300. ) GO  TO  10 
IFIT1.GT.T2)  T2*T1— 300 • 

IFIT2.GT.T1)  T2*T1*300. 

T3*T2 

C  TEST  FOR  DIAGNOSTIC  PRINT  OUT 
IF(IERR.nE.1>G0  TO  10 
WRITE (IWRITE, 9999) 

9999  FORMAT! 10X.46HN0N  FATAL  ERROR  CALLED  FROM  SPLIT  COMPONENT  FS/ 

1  lOXt 35HTEMPERATUR £  CHANGE  EXCEEDS  300  OEGR) 

10  TBAR* (T1+T2+T3 )/3. 

PBAR*(Pi*P2+P3)/3. 

CABAR*(CA2*CA3)/2. 

AM*AMACH( P3AR , TBAR , CA8AR,W8AR ,0. ) 

IF(IP1.NE.0)P 1D0T»R*T8AR* ( W 1-W2-W3 ) * ( 1 .>G2*AM*AM ) **G 1/ ( 8640 . *V0  L* 
l  FC) 

RETURN 

END 
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Table  167:  LISTING  FOR  SUBROUTINE  FSFLOW 


CFSFLOW 

SUBROUTINE  PS  FLOW ( P I , P2 ,T , CA , AK , FN , SFN  ,W ) 

PURPOSE  -  TO  CALCULATE  FLOW  (W)  ANO/OR  CHESTER  SMITH  COMPRESSIBLE 

FLOW  FUNCTION  <  FN  )  GIVEN  UPSTREAM  AND  OOWNSTRSAM  PRESSURES 
(PI  ANO  P2) »  TEMPERATURE  (T),  EFFECTIVE  AREA  (CA)  ANO  LOSS 
FACTOR  (AK). 

*  NOTE  *  IF  P2  IS  GREATER  THAN  PI,  OUTPUTS  FN  ANO  W  WILL 
BE  NEGATIVE.  FN  IS  BASED  ON  P/PS. 

FOR  ORIFICE  CALCULATIONS,  INPUT  AK»l. 

METHOD  -  USES  TABULAR  DATA  FOR  FN»F( PRESSURE  RATIO) 


WRITTEN  BY  -  AOAM  LLOYD  LATEST  REVISION  FSB  78 


LIMITATIONS  -  K  FACTOR  MUST  NOT  EQUAL  ZERO 


INPUT/OUTPUT  LIST 


PI 

UPSTREAM  PRESSURE 

PSIA 

INPUT 

P2 

OOWNSTRSAM  PRESSURE 

PSIA 

INPUT 

T 

TEMPERATURE 

DEGR 

INPUT 

CA 

EFFECTIVE  AREA 

IN2 

INPUT 

AK 

K  FACTOR  (MUST  NOT  EQUAL  ZERO) 

— 

INPUT 

FN 

COMPRESSIBLE  FLOW  FACTOR 

— 

OUTPUT 

SFN 

SLOPE  FN  WRT  P1/P2 

— 

OUTPUT 

W 

flow  RATE 

LB /MIN 

OUTPUT 

DIMENSION  ANF(34)  , ASF  (34) 
COMMON/ERMESS/IFATAL, IERR 
COMMON/CI O/IREAD , I WRITE , I DI AG 
DATA  ANF/ 


1 

0.0 

,.1453 

, .2044 

,.2491 

,  .2862 

,.3183 

,.3469 

,.3729 

• 

2 

.3966 

,.4186 

,.4390 

,.4582 

, .4762 

,.5394 

, .5916 

•  .6361 

t 

3 

.6745 

,.7081 

,  .7378 

,.7642 

,.8188 

,.8609 

,.8939 

,.9199 

9 

4 

.9404 

,.9566 

, .9693 

,.9791 

, . 98  66 

,.9920 

,.9959 

,.9984 

t 

5 

.9997 

,1.0 

/ 

OATA  ASF/ 

1 

37.60 

♦20.44 

,10.38 

,8.18 

,6.92 

,6.07 

,5.46 

,4.97 

9 

2 

4.57 

,4.24 

,3.96 

,3.72 

,3.38 

,3.16 

,2.61 

,2.225 

9 

3 

1.92 

,1.68 

, 1.485 

,1.32 

,1.092 

,.842 

,.66 

,.52 

9 

4 

.41 

,.324 

,.254 

,.196 

»  .15 

,.108 

,.078 

,.05  , 

5 

.026 

,  .006/ 

IF ( ?2 .GT.P1 )GO  TO  ICO 
°S*(Pl*(AK-l. )*P 2>/AK 
IF ( PS. GE.O.)PS*AMAXl( PS, O.OOOOl) 

IF (PS.LT.0.)PS«AMIN1( PS, -.OCOOl) 

PR  »P 1/°S 

IF(PR.LT.O.)GO  TO  1C 
X1«U*  200. *( PR-1. ) 

IF(PR.GT.1.06)  Xl»13.  ♦  50. *( PR-1. 06) 


/  t  • ,  ' 


..Al, _ 
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Table  167:  LISTING  FOR  SUBROUTINE  FSFLOW  (CONCLUDED) 


IF(PR.GT.1.20)  Xl«20.  ♦  20 .*( PR-1.20 > 

Ir ( PR  .GT • 1 .90 )  GO  TO  10 

I*X1 

FN*  ( XI— I ) *(  ANF I I ♦ 1 )— ANF ( I > ) >ANF ( I ) 
SFN*(X1-I )*(ASP(I*1 )— ASF (I))*ASF(I) 

GO  TO  20 
C  CHOKED  FLOW 
10  FN«1. 

spn*o. 

20  W*31.9*FN*CA*P1/SQRT(T) 

IFJPl.LT.O.)  W*— W 
GO  TO  200 

C  REVERSE  FLOW  -  FN  ANO  W  ARE  NEGATIVE 
100  P$*(P2*<AK-1.)*P1  )/AK 

IF ( PS. GE. O.lPSsAMAXll PS » 0.00001) 
IP(PS.LT.0.>PS®AMIN1CPS,-.00001) 
PR«P2/PS 

IF f PI .LT.0.)G0  TO  150 
IF(PR.LT.O.)GO  TO  110 
X1*1.*2C0.*(PR-1.) 

IF{ PR .GT. 1 ,06)  Xl= 13.  ♦  50. *( PR-1. 06 ) 
IF ( PR .GT .1.20)  Xl=20.  ♦  20. *( PR-1.20) 
IF ( PR. GT. 1.90 1  GO  TO  110 
I»Xl 

FN*  — (XI— I)*( ANF ( I+l) — ANF ( X ) )  -  ANF { I ) 
SFN*-(X1-I  >*(ASF<I*l>-ASF<I)>-ASFm 
GO  TO  120 

C  CHOKED  REVERSE  FLOW 

no  pn*-i. 

SFN*0. 

120  W=31.9*FN*CA*P2/SQRT(T) 

GO  TO  200 

C  REVERSE  FLOW  -  NEGATIVE  PI 
150  FN*— 1  ,l*-Pl 

W=31.9*FN*CA*P2/S0RT(T> 

IF(P2.LT.0.)  W*-W 
200  RETURN 
ENO 


oooooooooooonooooooooooooooononnooooo 


Table  168:  LISTING  FOR  SUBROUTINE  FT 


CFT 

SUBROUTINE  FT ( WC , TOT, T3 , W3, PI , P 1DOT , IP  1 ,T1 , Wl , T2 ,P2 , P3, VOL , FC ) 

VERSION  2.  SEPT  16  1977 

PURPOSE  SIMULATE  A  HUB  OR  TIP  DRIVEN  AXIAL  TURBO  FAN  AS 
USED  ON  THE  JINDIVIK  ACLS  VEHICLE 

METHOD  -  USES  INPUT  TABLES  DEFINING  STEAOY  STATE  CHARACTERISTICS 
OF  TURBINE  ANO  FAN.DRIVE/BLEEO  AIP.  TURBINE  INLET 
PRESSURE  IS  A  STATE. 

CALL  SEQUENCE 
******  TABLE  ****** 

WC  -TABLE  OF  CORRECTED  TURBINE  FLOW  AS  A  FUNCTION  OF 

-DRIVE ( BLEcO  AIR)  TO  CUSHION/TRUNK  PRESSURE  RATIO, 

-ONE  DIMENSIONAL  TABLE 

TOT  -TABLE  OF  TOTAL  FLOW  FROM  TURBOFAN  AS  A  FUNCTION  OF 

-CUSHION/TRUNK  PRESSURE ( PSFG )  AND  DRIVE  PRESSURE ( PS IA ) 
-TWO  DIMENSIONAL  TABLE 
******  OUTPUTS  ****** 

T3  -TEMPERATURE  OF  FAN  AIR  EXIT,  DEG  RANKINE 

W3  -TOTAL  FLOW  FROM  TURBOFAN  TO  CUSHION/TRUNK,  L3/MIN(PORT 

PI  -ORIVE/BLEED  AIR  PRESSURE,  PSIA(PORT  NO  1) 

PI DOT  -DERIVATIVE  OF  PI,  PSIA/SEC 

IP1  -INTEGRATOR  CONTROL  FOR  PI 

******  inputs  ****** 

T1  -ORIVE/BLEED  AIR  TEMPERATURE,  DEG  RANKINE 

Wl  -DRIVE/BLEED  AIR  FLOW  RATE,  LB/MIN( PORT  NO  1) 

T2  -AMBIENT  AIR  TERMPERATURE ,  DEG  RANKINE 

P2  -AMBIENT  AIR  PRESSURE,  PSIA(P0RT  NO  2) 

P3  -PRESSURE  OF  FAN  AIR  EXIT,  PSIG(PORT  NO  3) 

VOL  -INTERNAL  VOLUME, CU. FT. 

=  C  -FREQUENCY  CONTROL  ON  PI  (FC.GE.l.) 

-A  VALUE  CF  FC  GREATER  THAN  1.  DECREASES 
-FREQUENCY  RESPONSE  OF  PI  CORRESPONDINGLY 

WRITTEN  BY  MAHINOER  WAHI  JUNE  1977 

DIMENSION  WCm,TOT(l) 

DATA  R/53.32/ 

C  CALCULATE  TURBINE  FLOW  RATE  FROM  INPUT  TABLE 
PRAT  =  P1/P3 
PRAT*  A MAX  1(1. ,PRAT ) 

NX*  WC  (  2  ) 

WCOR*  T3LU 1 1 PRA T , WC (A) ,  WC (NX+4) , 1,— NX) 

Wl CAL*  60*wC0R*1.55*Pl/S0RTlTl) 

IF(IPl.NE.O)  0 1DOT  =  R*Tl*(Wl-WlCAL)/(  86^-0.  *FC*VCL  ) 

C  CALCULATE  -AN  PERFORMANCE  FROM  INPUT  TABLES 
PSF  *  (33-»2)*l4*.. 

Nl*  TOT f  3  )  *4 

N2=  T0T(2)+T0T(3)f4 

N3*  TOT ( 2 ) 

N4=  TOT  ( 3  ) 

W3=  60*T3L'J2(  9SF , P 1  ,TOT{ N 1 )  ,T0T(4)  ,T0T(N2)  ,  1,1, -N3 , -N4, N3  * N4 ) 
W3*AMAX1« W1CAL,W3) 
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Table  168:  LISTING  FOR  SUBROUTINE  FT  (CONCLUDED) 


W2»  W3-HICAL 

T3  =  <Wl*Tl+*2*T2)/W3 

T3=AMAX1|A00.,T3) 

RETURN 

SNO 
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Table  169:  LISTING  FOR  SUBROUTINE  FU 


I 


C*U 

SUBROUTINE  FUfFTA  ,  FO,  FIN,  AN) 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PURPOSE  -  TO  CALCULATE  OUTPUT  FO  AS  AN  ARBITRARY  FUNCTION  OF 
INPUT  FIN  USING  TABULAR  INPUT  FTA  GIVING  FO=F(FIN) 


METHOD  -  SELF  EXPLANATORY 


LIMITATIONS  -  NONE 


WRITTEN  BY  -  ADAM  LLOYD 


LATEST  REVISION  NOV  75 


INPUT/OUTPUT  LIST 


FTA 

TABULAR  INPUT  FO®F(FIN) 

ANY 

FO 

OUTPUT 

ANY 

FIN 

INPUT 

ANY 

AN 

OEGR6E  OF  INTERPOLATION 

A  NEGATIVE  VALUE  OF  AN  WILL 
PREVENT  EXTRAPOLATION  BEYOND 
TABLE  LIMITS 

INPUT 

OUTPUT 

INPUT 

INPUT 


DIMENSION  FTA (I) 

NA  *FT A I  2  >  * AN/ AS  S <  AN  ) 

NB*FTAl2>-*-4 
N® ABS ( AN) 

FO=TBLUUFIN,FTA(4),FTA<NB)  ,NfNA) 

RETURN 

END 


TABLE 

VAR 

VAR 

PARAM 


onnnnnonnnnnnnnnnnnonnonnnn 


Table  170:  LISTING  FOR  SUBROUTINE  FV 


CFV 

SUBROUTINE  FV ( FT A , FO, FNA , FN8 , AN , BN ) 

PURPOSE  -  TO  CALCULATE  OUTPUT  FO  AS  AN  ARBITRARY  FUNCTION  OF  INPUT 
VARIABLES  FNA  AND  FNB.  INPUT  TABLE  FT A  IS  USED  GIVING 
FO-F i FNA  t  FN8 ) 

METHOO  -  TWO  DIMENSIONAL  TABLE  LOOKUP 


LIMITATIONS  -  MAX  ALLOWABLE  SIZE  OF  TABULAR  ARRAY  IS  12X12. 


WRITTEN  BY  -  GEORGE  DULEBA  LATEST  REVISION  MAY  76 


INPUT/OUTPUT  LIST 

FT A  TABULAR  INPUT  INPUT  TA31 

FO  OUTPUT  ANY  OUTPUT  VA: 

FNA  INPUT  A  ANY  INPUT  VAh 

FNB  INPUT  B  ANY  INPUT 

AN  DEGREE  OF  INTERPOLATION  FOR  FNA  -  INPUT  P A; 

A  NEGATIVE  VALUE  INDICATES  THAT  THE  NEAREST  ENO 
POINT  IS  TO  BE  USED  UPON  EXTRAPOLATION. 

BN  DEGREE  OF  INTERPOLATION  FOR  FNB  -  INPUT  PA: 

A  NEGATIVE  VALUE  INDICATES  THAT  THE  NEAREST  END 
POINT  IS  TO  BE  USED  UPON  EXTRAPOLATION. 

DIMENSION  FTA(l) 

Nl=FTA(3>+4 

N2=FTA(2>+FTA(3)*4 

N3=FTA(2) 

N4sFT  A ( 3 ) 

N5*  FTA (2 ) *A9S ( AN ) /AN 
N6=  FTA  13  )  *AB$  ON  ) /BN 
NAN*ABS I AN ) 

N8N*A8S(BN ) 

FO*T9LU2l FNA , FNB , FTA INI), FTA ( 4) , FTA ( N2  ) ,N AN ,N BN , N5 , N6 ,N3 ,N4 ) 

RETURN 

END 
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Table  171:  LISTING  FOR  SUBROUTINE  GW 


CGW 

SUBROUTINE  GW(UG,UGO,IUG,VG,VGD, IVG,VX  ,VXD, I VX ,WG,WGO , I WG , 

1  WX,WXO,lWX,PG,PGO,IPG,QX,QXO, IQX  ,QG,RX ,RX0 , IRX , RG,VS,XNU, 

2  XNV,XNW,XNP,SLH,SLV,VO,SIH,SIV,8> 

DATA  PI, ROOT3,ISW/3. 1415927, 1.7320508,0/ 

DATA  OPR/57.29578/ 

VERSION  1.  MAY  27  1977 

PURPOSE  SIMULATE  RANOOM  WINO  GUST  COMPONENTS 
METHOO  PASS  WHITE  NOISE  THROUGH  DRY06N  TRANSFORMS  TO 
SIMULATE  U,V,W,P,Q,R,  GUST  VELOCITIES  IN 
ACCORDANCE  WITH  SECTION  3.7,  MIL-F-8785B 


CALL  SEQUENCE 
******  OUTPUTS 
LINEAR  VELOCITIES 
UG  ,UGO, IUG 
VG,VGO» IVG 
VX,VXO,IVX 
WG,WGO,IWG 
WX  ,WXD, IWX 
ANGULAR  VELOCITIES 
PG,PGO,IPG 
QX  ,QXD , IQX 
RX ,RXD, IRX 
QG.RG 
VELOCITY 
VS 


—  BOOY  AXES 

X  AXIS  WINO  VELOCITY  STATE  VARIABLES,  FT/SEC 
7  AXIS  WINO  VELOCITY  ♦  ♦  ♦ 

Y  AXIS  INTERMEDIATE  ♦  ♦  ♦ 

Z  AXIS  WINO  VELOCITY  ♦  ♦  ♦ 

Z  AXIS  INTERMEDIATE  ♦  ♦  ♦ 

—  BOOY  AXES 

X  AXIS  ANGULAR  RATE  ♦  ♦  OEG/SEC 

Y  AXIS  ANGULAR  RATE  ♦  ♦  ♦ 

Z  AXIS  ANGULAR  RATE  ♦  ♦  ♦ 

Y  ANO  Z  AXIS  ANGULAR  RATE  OUTPUTS,  OEG/SEC 


-STEADY  STATE  (TRIM)  AIRSPEED,  FT/SEC 


******  INPUTS 
XNU , XNV  »XNW 
XNP 

SLH.SLV 

VO 

SIH, S IV 
B 


****** 

-RANOOM  NOISE  INPUTS  FOR  U,V,W  GUST  VELOCITIES 
-RANOOM  NOISE  INPUT  FOR  P  ANGULAR  RATE  GUST 
-HORIZONTAL  AND  VERTICAL  SCALES,  FT 
-STEADY  STATE  AIRSPEED  INPUT,  FT/SEC 
-HORIZONTAL  ANO  VERTICAL  RMS  GUST  INTENSITY,  FT/SEC 
-WING  SPAN,  FT 


WRITTEN  3Y  A.W .WARREN  AS  COMPONENT  *WM*  IN 

FLIGHT  CONTROLS  LIBRARY  SEPT  1976 


MODIFIEO  BY  MAHINOER  WAHI 
SET  DEFAULTS 


MAY  1977 


IF(ISW.EQ.1>  GO  TO  10 
IF(SLH.EQ.  .99999)  SLH=1750. 

IF ( SLV.EQ.  .99999)  SLV=1750. 

IFISIH.EQ.  .99999)  SIH*0. 

IFfSIV.EQ.  .99999)  SIV*0. 

ISW*1 

COMPUTE  GAINS  AND  COEFFICIENT  TERMS 


10  VS*VO 

SLHP*  SLH/VO 
SL VP*  SLV/VO 

GAINU*  SIH*$QRT( ( S LHP  +  SLHP ) /PI ) 
GAINV*  0. 7 071 07*GA INU*XNV 
GAINU*  GA INU*XNU 
GAINW*  SIV*SQRT(SLVP/PI )*XNW 
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Table  171:  LISTING  FOR  SUBROUTINE  GW  (CONCLUDED) 


COEFH*  4.*B/(PI*V0) 

COEFV®  0.75*C0EFH 

GA IMP*  S IV*SQRT ( 0 .8*<  0 .25»P I *SLV/8 ) *»0 .333333/ ( S LV*VO ) ) *XNP 

COMPUTE  STATE  DERIVATIVES 
IF (IUG.NE .0)  UGO*  ( GAINU-UG1/SLHP 
IB (IVX.NE.O)  VXD®  ( GAINV— VG)/SLHP**2 
IF ( IVG.NE .0 )  VGD«  VX> ( GAI NV*R00T3— VG—VG) /SLHP 
IF  ( IWX.NE • 0)  WXO«  ( GAINW— WG)/SLVP**2 
IF ( IWG.NE .0)  WGO®  WX* (GAINW*R00T3“WG-WG)/SLVP 
IF ( IPG.NE .0)  PGO»  (GAINP*0PR-PGJ/C0EFH 
QG*  QX  ♦  OPR*WG/IVO*COEFH) 

IF(IQX.NE.O)QXD*  -QG/COSFH 
RG»  RX  -  OPR*VG/(VO*COEFV> 

IF ( IRX.NE .0>  RXD*  -RG/COEFV 

RETURN 

END 


onoooononoooooooooooooonooooooo 


Table  172:  LISTING  FOR  SUBROUTINE  HI 


CHI 

FUNCTION  HKIFLt  T, TW, W, $Hf D , AL .CODE ) 

PURPOSE  -  TO  CALCULATE  HEAT  TRANSFER  COEFFICIENTS  FOR  PLOW  IN  DUCTS 
AND  FOR  FLOW  ACROSS  CYLINDERS  (SUCH  AS  SENSORS) 

METHOO  -  USES  CONVENTIONAL  CORRELATIONS  FOR  LAMINAR  AND  TURBULENT 

FLOW.  FOR  TRANSITION  FLOW  IN  DUCTS  AN  EQUATION  OF  THE  FORM 
NU»C1*RE**C2*PR**.333 

IS  ASSUMED.  Cl  AND  C2  ARE  EVALUATED  FROM  VALUES  OF  NU  AT 
THE  LIMITS  OF  THE  LAMINAR  AND  TURBULENT  REGIMES 

LIMITATIONS  -  FOR  AIR  FLOW  ACROSS  CYLINDERS  THE  VALID  RANGE  OF 
REYNOLDS  NUMBER  IS  1000. LE. RE. LE. 50000 
FOR  LIQUIDS  THE  VALID  RANGE  IS  50.LE.RE.L6.1C000 


WRITTEN  BY  -  ADAM  LLOYD  LATEST  REVISION  NOV  75 


INPUT/OUTPUT  LIST 


HI 

CONVECTIVE  HEAT  TRANSFER  COEFF. 

8TU/FT2  HRDEGR 

OUTPUT 

IFL 

INTEGER  DESIGNATING  FLUID( SEE  PROP) - 

INPUT 

T 

FLUID  TEMPERATURE 

DEGR 

INPUT 

TW 

WALL  TEMPERATURE  (USED  FOR  LIQUIDS 

)OEGR 

INPUT 

W 

FLOW  RATE 

LB/MIN 

INPUT 

SH 

SPECIFIC  HUMIDITY  OF  VAPOR 

L8/LB 

INPUT 

D 

DIAMETER  (DUCT) 

IN 

INPUT 

AL 

LENGTH  (OUCT  LENGTH  IN  FT  FOR  LAM 
FLOW  OR  CYLINOER  DIAMETER  (INCHES) 

FT  OR  IN 

INPUT 

CODE 

»0.  FLOW  IN  DUCTS 

=1.  FLOW  ACROSS  CYLINDERS 

INPUT 

common/ermess/ifatal.ierr 

COMMON/CIO/IREAO. IWRITE  .IOIAG 
REAL  NU.NU2 
AK=PROP (IFL.3.T) 

IF (COOE .GT .0. 5 )G0  TO  100 
C  FLOW  IN  OUCTS 

RE*RENVX(IFLtW,T,D) 

IF(RE .GT .10000. )G0  TO  20 
IF (RE.GT.2100. )G0  TO  10 
C  LAMINAR  FLOW  IN  DUCTS 
IFIIFL.NE.DGO  TO  5 
C  LAMINAR  FLOW  OF  AIR  IN  DUCTS 
PR»PRN0(1.T,SH) 

HI  =6 . 0*8* (  RE*PR*0/AL )  **0 ,4*AK/D 
C  CONSTANT  6.0<*8  = l.5*12«*.6* ( PI/4 ) **.4 
GO  TO  200 

C  LAMINAR  FLOW  OF  LIQUIDS  IN  DUCTS 
5  AMUB*PROP( IFL.2.T) 

AMUW*PRQ® ( IFL » 2  »TW ) 

PR*PRNO(IFL,T,SH) 

HI»9.757*AK*f  RE*PR*D/AL )**.333*( AMUB/AMUW )**• 14/0 
C  CONSTANT  9.757*l.86*( 12)**. 667 
GO  TO  200 
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Table  172:  LISTING  FOR  SUBROUTINE  HI  (CONTINUED) 


C  TRANSITION  FLOW  IN  DUCTS 
10  IFdFL.NE.DGO  TO  15 
C  TRANSITION  FLOW  OF  AIR  IN  DUCTS 

C  CALCULATE  CONSTANTS  Cl  ANO  C2.  THIS  REQUIRES  CALCULATION  OF  NUSSELT 
C  NUMBER  AT  UPPER  LIMIT  OF  LAMINAR  FLOW  AND  LOWER  LIMIT  OF  TURBULENT 
C  FLOW . 

PR*PRND(IFL»T  »SH) 

NU=10.74776728*(PR*D/AL>**0.4 
C  NU  IS  NUSSELT  NUMBER  AT  R£*2100 
NU2»36.45254342*PR**0.4 
C2 *.64075  9583*AL0G ( NU2/NU ) 

C1»NU/(21C0.**C2*PR**.333) 

HI»12.*AK*C1*RE**C2*PR**.  333/D 
GO  TO  200 

C  TRANSITION  FLOW  OF  LIQUIDS  IN  DUCTS 
15  PR*PRNDdFL,T,SH> 

AMU0*PROP( IFL,2»T) 

AMUW*PROPl IFL.2.TW) 

VI  SR*  (  AMUB/AMUW  >**.  1<* 

NU*10. 38591 142*(PR*0/AL)**.333*VISR 
C  NU  IS  NUSSELT  NUMBER  AT  RE*2100 

NU2*36. 45254342*! PR)**. 333*VISR 
C2*.640759583*AL0G 1NU2/NU ) 

Cl*NU/( 2100. **C2*PR**. 333) 

HI«12.*AK*Cl*RE **C2*PR**.333*VISR/D 
GO  TO  200 

C  TURBULENT  FLOW  IN  OUCTS 
20  IFdFL.NE.DGO  TO  25 
C  TURBULENT  FLOW  OF  AIR  IN  OUCTS 
PRaPRNO (1 »  Tf  SH ) 

HI».276*RE**0.8*PR**0.4*AK/D 
C  CONSTANT  . 276*. 023*12 . 

GO  TO  200 

C  TURBULENT  FLOW  OF  LIQUIDS  IN  OUCTS 
25  PR*PRNO(IFL,T,SH) 

AMU8*PR0Pf IFL  »2  »T ) 

AMUW=PROP( IFL,2,TW) 

HI =.276*RE**0. 8*PR**0 .333*( AMU8/AMUW )**1A*AK/D 
GO  TO  200 

C  FLOW  ACROSS  CYLINOERS 

C  SINGLE  CORRELATION  FOR  WHOLE  REYNOLDS  NUMBER  RANGE 
100  IFdFL.NE.DGO  TO  120 

C  FLOW  OF  AIR  ACROSS  CYLINOERS.  REYNOLDS  NUMBER  BASED  ON  AL  WHICH  IS 
C  CYLINDER  OIAMETER  IN  INCHES 
C  RE*RH 0*V*AL/MU 

C  *9 16. 73*W*AL/ ( D*D*MU) 

AMU*PROPC l»2»T) 

RE*A8S ( 9l6.73*W*AL/ (D*0*AMU ) ) 

HI*2.88*AK*RE**0.6/AL 
C  CONSTANT  2.88*. 24*12. 

C  CHECK  I®  VALID  REYNOLDS  NUM8ER 

IFdOOO.LE.RE. AND. RE. LE. 50000.)  GO  TO  200 
C  TEST  FOR  DIAGNOSTIC  PRINT  OUT 
IFdERR.NE.DGO  TO  200 
WRITE( IWR ITE |9999) 

9999  FORMAT! 10 X, 30 HNON  FATAL  ERROR  CALLED  FROM  HI/ 
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Table  172:  LISTING  FOR  SUBROUTINE  HI  (CONCLUDED) 


1  10X,67HREYN0LDS  NUMBER  FOR  FLOW  OF  AIR  ACROSS  CYLINOER  OUTSIDE  VA 
2LIO  RANGE) 

GO  TO  200 

FLOW  OF  LIQUID  ACROSS  CYLINDERS 
120  AMU*PRQP! IFL  »2tT) 

RE»ABS!916.73*W*AL/!D*0*AMU>) 

PR*PRNO(IFL»T,SH) 

HI»7.2*AK*RE**0.5*PR**0.31/AL 
CONSTANT  7.2».6*12. 

CHECK  IF  VALID  REYNOLOS  NUMBER 

IF(50.LE.RE.AND.RE.LE.10000.)GO  TO  200 
TEST  FOR  DIAGNOSTIC  PRINT  OUT 
IF1IERR.NE.11G0  TO  200 
WRITE! IWR ITE  »9998 ) 

9998  FORMAT! 10X»30HN0N  FATAL  ERROR  CALLED  FROM  HI/ 

1  10X,70HREYN0LDS  NUMBER  FOR  FLOW  OF  LIQUID  ACROSS  CYLINDER  OUTSIDE 

2  VALID  RANGE) 

200  RETURN 

ENO 


Table  173:  LISTING  FOR  SUBROUTINE  HYCURV 


CHYCURV 

SUBROUTINE  HYCURV <X,Z> 

C  SUBROUTINE  TO  CALCULATE  POSITIONS  OF 
C  SIDE  TRUNK  LOBES 

C  THE  POSITION  I  EXPRESSED  BY  HY)  DEPENDS  ON  PRESSURES. 
C  I.E.  HY/HYI«F( PCH/PTK ) 

CQMMON/HCUR/AHO  t AHl t AH2  »AH3 
C  FORCE  INPUT  PRESSURE  RATIO  BETWEEN  0.0  AND  1.0 
X* AM INI ( I • Of AMAX1 ( 0.0  fX ) ) 
Z»AH0-*-AHl*X*AH2*X*X*AH3*X*X*X 
IF(Z.LT.0.1)Z*0.I 
IF  (Z.GT.1.0)  Z»l.O 
RETURN 
END 
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Table  174:  LISTING  FOR  SUBROUTINE  IC 


crc 

SUBROUTINE  IC(NSETtNPTS,ITYPE,A,8,L0,0PR) 

VERSION  3.  FEB *20  1978 

PURPOSE  -  SOLVE  FOR  TRUNK  ELEMENT  P-ARAMETERIC  OATA  FOR  FREE 
ANO  LOAOEO  ACLS  TRUNK  SHAPES  AT  INITIAL  CONDITIONS 

I TYPE* I  OATA  GENERATED  FOR  MEMBRANE  TRUNK 

ITYPE-0  DATA  GENERATED  FOR  FROZEN  TRUNK 

METHOD  -  SEE  AFFDL-TR-71-50,  THEORY  OF  AN  ACLS 

FOR  AIRCRAFT  BY  KENNERLY  H.  DIGGESt  JUNE  1971 

LIMITATIONS  -  CALLEO  ONLY  BY  THE  TRUNK  MODEL  COMPONENT  TK 
♦♦CALL  SEQUENCE** 

••♦OUTPUTS*** 

ARRAYS  ACV,AS,L1,L3,L3P,Y0, AND  ZO  FOR  VARIOUS 

TRUNK  TO  CUSHION  PRESSURE  RATIOS. (SEE  TRUNK  NOMEN.) 
♦♦•INPUTS*** 

NSET.NPTSt ITYPE,A,8,L0, ANO  DPR  (SEE  TRUNK  NOMEN.) 

WRITTEN  BY  -  J.R.KILNER  AND  M.K.WAHX 

COMMON/SECT /AZO ( 10»6)  ,AYO( 10, 10, 6) ,AL1( 10,10,6) ,AL3P( 10,10,6), 
*  A L3( 10,10,6) , AACV( 10,10,6), AAS (10,10,6) 

COMMON/CIO/ IRE AO, I WRITE, I 01 AG 
DIMENSION  ITYPE( 6) 

DIMENSION  A (6) ,B(6) ,L0(  6) ,X ( 5 ) ,R ( 5 ) ,P ( 6 ) , AJ( 5 , 5 ) , Z( 5, 7) , IP ( 6) 
DIMENSION  01 (10), 02 (10) ,R1( 10,10 ,6) , R2 ( 10, 10,6) 

REAL  LO 
EXTERNAL  ICFS 
EXTERNAL  ICLS 

OPR*l.O/NPTS 
ANPT*NPTS 
P(1)*0. 

DO  10  1*1 »NSET 

P(2) *A(I ) 

P (3) *B( I ) 

P(4)*L0(I) 

X  ( 1 ) *0. 25 *L  0 ( I ) 

X (2) *0.25*L0( I ) 

X(3 ) *2.0 
X (4)*2.0 
IP( 1 )*“50 
JQ*0 

SOLVE  FOR  FREE  SHAPE  PARAMETER  DATA 

DO  20  J*1 »MPTS 
P(5)*0PR*(J-l) 

C 

CALL  QNWT (X, 4, 5, ICFS, P, .0001 , IP , JQ,R ,RMS, A J,Z ) 
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Table  174:  LISTING  FOR  SUBROUTINE  IC  (CONTINUED) 


JQ*1 

AZ0<J,I)»X(2)*U.-C0S(X(4) ) ) 

C 

IF(RMS.LE.  .0001)  GO  TO  15 
WRITE! iWftlTEt 14)  RMS  »NSET 

14  FORMAT !//»  5X,  2 OHQNWT  FAILURE  IN  ICFS, 

*  /5X,*RMS**,E12.4,5X,*NSET**,I2//> 

STOP 

15  CONTINUE 

IFIITYPEII) .EQ.0)G0T0  90 
20  CONTINUE 

SOLVE  FOR  LOAOEO  TRUNK  MEMBRANE  PARAMETRIC  DATA 

XU)«.25*L0(I) 

X (2 ) *.25*L0 ( I ) 

X!3)»2. 

X(4)«2. 

X ( 5 ) *0. 

JQ*0 

00  30  J*l »NPTS 
P!5)*0PR*!J-1) 

00  30  K=1,NPTS 

PI6)»AZ0! J,I>*!1.-IK-1)/ANPT) 

CALL  QNWT!X,5,5,ICLS,P, .0001,IP,0,R,RHS,AJ,Z) 

JQ«i 

AY0!J,K,I)=X!2)*SIN!X!4) ) 

ALII J,K,I)*X(1)*X(3) 

AL3( J,K,I)*X!5> 

AACV(  J,K,I)*.25*X(2>*XI2)*!2.*X.(4J-$IN!2.*X!4) ) ) 

AAS< J,K,I)*.25*xm*X!l)*!2.*X!3)+SINI2.*X!3>)> 

*  ♦AACV!J,K,I)-MP(6)-X(1))*!A(I)-AY0(  J,K,I))*X!l)*X!5) 
Rl( J  t K» I )=X ( 1) 

R2!J,K,I)*X!2) 

IFfRMS.LE.  .0001)  GO  TO  25 
WRITE! IWRITE,24)  RMS ,NSET 

24  FORMAT!//,  5X,  20HQNWT  FAILURE  IN  ICLS, 

*  /5X,*RM$**,E12.4,5X,*NSET=*,I2//) 

STOP 

25  CONTINUE 
30  CONTINUE 

GOTO  33 

SOLVE  FOR  LOAOEO  TRUNK  FROZEN  PARAMETRIC  DATA 

90  C1*X12)*SIN(X<4) ) 

C2*AZ0( 1 , I ) “X ( 2 ) 

C 

00  92  K»1,NPTS 
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Table  174:  LISTING  FOR  SUBROUTINE  IC  (CONTINUED) 


ZO-AZOCl,I)*(l.-IK-i)/ANPT) 

ZCR* ( ZO-C2 ) /X 1 2 ) 

IF(ZCR.GT.1.)ZCR*1. 

THE-ACOS(ZCR) 

AL1(\,K,I)*X(1)*(X(3) —THE) 

AL3<l,K,I)«2.*X<2)*SIN<THE) 

AL3PI 1,K,I) »2.*TH£*Xl 2) 

AYO( 1,K,I )*Cl— «5*AL3 ( 1,K, I } 

AACV (1,K,I)*.5*( (Cl— AL3 ( 1,K,  I ) )*C2»( X(4)— THE )*X(2)*X(2) 
'  -.5*<Z0-C2)*AL3(l,K, I)) 

AAS(l,K,I)*.5*UXI3)*X(4)-2.*THE>*X(2>*X(2>*Cl*C2 
>  ♦(Am-Cl»*iC2-em>MZ0-C2)*AL3<l,Ktm 

R1(1,K,I)*X(1) 

R2( l,K»I )*X (2) 

CONTINUE 


DO  94  J*2  ,NPTS 
AZO< J,I)*AZO(l, I) 

00  94  K*1,NPTS 
AL1( J,K,I)=AL1 ( L  ,K, I ) 
AL3( J*K»I )*AL3 ( 1 ,K, I ) 
AL3P(J»K»I)=AL3P( 1 ,K, I) 
AYO( J,K,I)*AY0(1,K,I) 
AACV I J,K, I ) *AACV ( 1»K» I ) 
AASf J,K,I)*AASC1,K,I) 
R1(J*K,I)SR1(1,K,I) 

R2( J»K»II=R2(1»K,I) 
CONTINUE 


C  OUTPUT  ARRAYS 


33  IF( I«EQ»1 ) WRITE ( I HR IT E, 6000 ) 

IF< ITYPE( I) . EQ. 1 1WR ITE( IWRITE ,6002 ) I 
IF ( I TYPE ( I). £Q.O)WRITE( IWRITE ,6004)1 
WRITE ( IWRITE, 6006)NPTS, DPR, A (I) ,B( I) ,LO(I ) 

WRITE ( IWRITE, 6008) AZO (1,1 ),AYO( 1,1, I >,AL1< 1,1,1 ),AACVC 1,1,1), 

*  AAS (1,1,1) 

6000  FORMAT (39H1*****  TRUNK  ELEMENT  SECTION  PROPERTIES  , 12 C6H****** ) ) 
6002  F0RMAT1////14H  ***  DATA  SET  ,I1,30H  ***  MBiBRANE  TRUNK  ELEMENT  * 

*  4( 4H**** )/) 

6004  F0RMAT(////14H  ***  OATA  SET  ,I1,30H  ***  FROZEN  TRUNK  ELEMENT  *** 

*  4(4H****)/) 

6006  F0RMAT(5X,*NPTS=*,I2,2X,*0PR=*,F4.3,8X,*A**,F6.2,*  B«*,F6.2, 

*  *  L0**»F6.2/) 

6008  FORMAT (3X,  SOHELEMENT  PROPERTIES  FREE  OF  GROUNO  EFFECTS  AND  PR=0, 

*  5X,*Z0=*»F6.2,*  Y0**» F6.2, *  L1**,F6.2,*  ACV»*,F7.l,*  AS**, 

*  F7.1//) 


WRITE (I WRITE, 6010) 

00  40  J*1 ,NPTS 
DO  42  K*i ,NPTS 

42  D1 (K ) *AZ0( J , I ) * (NPTS— K*1 J/ANPT 

WRITE  (IWRITE,  6020)  IOUK)  ,K*1,NPTS) 

40  CONTINUE 

6010  FORMAT (5X.16H***  ZO  ARRAY  ***//7X,*lST  COLUMN  IS  OUT-OF-GROUND* 


Table  174:  LISTING  FOR  SUBROUTINE  IC  (CONTINUED) 


♦  *-EFFECTS  ZO  FOR  INCREASING  VALUES  OF  PR*/ ) 

6020  FORMAT ( 5X  r 1 0F8 .2 ) 

6022  FORMAT !5X,10F8.1) 

C 

WRITE! IWRITE, 6030) 

00  50  J*l,NPTS 

WRITS!  IWRITE, 6020  MAYO!  J,K,  I)  ,K*l,NPTS) 

50  CONTINUE 

C 

WRITEdWR  ITS, 6032) 

00  52  J«1,NPTS 

WRITE! I WRITE  y6020)(ALl(J»KtI) ,K=1,NPTS) 

52  CONTINUE 

C 

WRITE ( IWR ITE» 6034) 

00  54  J*1 »NPTS 

WRITE  1IWRITE, 6020) ( AL3! J,K, I) ,K=l ,NPTS) 

54  CONTINUE 
C 

IFCITYPE(I).EQ.1)G0T0  55 
WRITE! IWRITE, 6036) 

00  5  6  J*1,NPTS 

WRITE (IWRITE, 6020) !AL3( J,K,I> ,K*1,NPTS) 

56  CONTINUE 
C 

55  WRITE  II WRITE *603 8) 

00  58  J=1 ,NPTS 

WRITE1IWRITE,6022)!AACV!J,K,I),K=1,NPTS) 

58  CONTINUE 
C 

WRITE! IWRITE ,6040) 

00  60  J*l »NPTS 

WRITE ( I WRITE, 602 2) (AAS!J,K,I) ,K-I,NPTS) 

60  CONTINUE 
C 

WRITE! I WRITE, 6 042) 

00  62  J*I,NPTS 

WR ITE! IWRITE, 6020) !R1!J,K, I) ,K=1 ,NPTS) 

62  CONTINUE 
C 

WRITE! IWRITE, 6044) 

00  64  J>I,NPTS 

WRITE! IWRITE, 6020) !R2iJ,K,Z) ,K«1,NPTS) 

64  CONT INUE 

6030  FORMAT  I //5X,*THE  FOLLOWING  ARRAYS  CORRESPOND  ELEMENT-TO-ELEMENT* 

*  *  WITH  THE  ZO  ARRAY *//5X , 16H***  YO  ARRAY  ***/) 

6032  FORMAT! //5X ,I6H**«  LI  ARRAY  ***/ I 

6034  FORMAT l//5X,16H***  L3  ARRAY  ***/ ) 

6036  FORMAT 1//5X , 17H***  L3P  ARRAY  ***/) 

6038  FORMAT 1//5X , 17H***  ACV  ARRAY  ***/) 

6040  FORMAT !//5X,l6H***  AS  ARRAY  ***/ ) 

6042  FORMAT l//5X,16H***  R1  ARRAY  ***/) 

6044  FORMAT !//5X ,I6H***  R2  ARRAY  ***/) 

C 

10  CONTINUE 
C 
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RETURN 

END 
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Table  175:  LISTING  FOR  SUBROUTINE  ICS 


CIC8 

SUBROUTINE  ICB (NSET.NPTS, A, 8 f L0»GA ,GB, DMU , 

*  A  Z0»  AYO» AL 1» AL3»  AAS»  BYO »BLl»BL3»BAS) 

PURPOSE  -  SOLVE  FOR  AIR  BAG  ELEMENT  PARAMETER IC  CATA  FOR  FREE 

ANO  LOAOEO  AIR  BAG  ELEMENT  SHAPES  AT  INITIAL  CONDITIONS 

METHOO  -SOLVE  MEMBRANE  GEOMETRY  ANO  FORCE  BALANCE  EQUATIONS 
FOR  EVEN  INCREMENTS  OF  ZO  AND  MUT  AND  STORES 
PARAMETER  VALUES  IN  TABLE  LOOK  UP  ARRAYS. 

LIMITATIONS  -  CALLED  ONLY  BY  THE  AIR  BAG  MODEL  COMPONENT  AB 
•♦CALL  SEOUENCE** 

••♦OUTPUTS*** 

ARRAYS  YO,Ll»L3,AS  FOR  VARIOUS  ZO  AND  MUT 
♦••INPUTS*** 

NSET,NPTS,A,3,LO,GA,GB, AND  DMU  (SEE  AIR  BAG  NOMEN.) 

WRITTEN  BY  -  J.R.KILNER  APRIL  10t1978 

DIMENSION  AZO(6),AYO(10,10,6),ALl(10,10,6), AL3 ( 1 0, 10 , 6) , 

*  AAS(10,I0,6),8Y0( 10, 10, 6 ) ,BL1 ( 10,10 ,6 > ,BL3 ( 10 ,10,6) , 

*  8AS( 10,10,6) 

CQMMON/CIO/IREAD, IWRITE  , I DI AG 

DIMENSION  A(6 ) »B ( 6 ) »L0( 6) » X< 5 ) ,R (5 ) , P( 16) »A J ( 5 ,5 ) ,Z ( 5 ,7 ) , IP ( 6 ) 
DIMENSION  Dl( 10) ,02(10) ,GA(6) ,GB (6) 

REAL  LO 

EXTERNAL  ICFSB 
EXTERNAL  ICLSB 

0MU*1 .O/NPTS 
ANPT*NPTS 
P(I)*0. 

IP ( 1 ) *100 

DO  10  1*1 »NSET 

P(2)»A(I> 

P ( 3)*B ( I ) 

P(4)»L0(I) 

P(7)».01745*GB(I) 

P(8)«.01745*GA(I) 

P(9)«SIN(P(7> ) 

P( 10)»C0S(P(7)> 

P( 11 ) *SIN ( P(8 ) ) 

P( 12)«COS(P(8) ) 

X( 1)*0.25*L0( I ) 

X (2 )»2  .0 
X ( 3 )*2 .0 
JQ*0 

SOLVE  sqr  BRSE  SHAPE  PARAMETER  DATA 
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Table  175:  LISTING  FOR  SUBROUTINE  IC3  (CONTINUED) 


CAL'-  CNWT(  X«3«5t  IC  r  S3  ,  P  »  .0001*  IP  ,JCtR*RMS»AJ»Z  ) 

r 

AZO( I )  *X( 1)*< l.-COS IX (3 ) >  ) 

c 

IFfRMS.LE.  .0001)  GO  TO  15 
W®ITE(IWRITE,14)  RMS.NSET 
1<*  FORMAT?  // .  5X,  21HQNWT  FAILURE  IN  ICFS8, 

*  /5X,*RMS=*,S12.4,5X, *NSET=*,I2//> 

STOP 


15  CONTINUE 

SOLVE  FOR  LOAOEO  ELEMENT  MEMBRANE  PARAMETRIC  DATA 

OMUXaOMU 
DO  30  M= 1 r 2 
IF(M.EQ.2)DMUX=-DMU 
DO  30  J®1 *  NPTS 
X( l)=.25*LO< I ) 

X ( 2)=.25*L0( I  ) 

X(3)=.5*L0<I) 

X(*.)  =  .5*L0(I> 

X?  5)  =  0. 

J0=0 

P  ( 5  > =  OMUX  * ( J— 1 ) 

00  30  K®1 »NPTS 
P(6)*AZ0(  r  l*<  i.-IK-D/ANPT) 

IX=0 

c 

27  CALL  QNWTIX,5,5,ICL$8,P,.0001,IP,0,R,RMS,AJ,Z) 

C 

IF (RMS.LE •  .0001)  GO  TO  25 
IF (IX.EQ.l JGCTO  26 
IX  =  i 

X(1)=.25*L0(I ) 

X ( 2 )= .25*L0 ( I ) 

X(3)=.5*L0< I) 

X(4)=.5*L0(I) 

X<  5)*0. 

JQ-0 
GOTO  27 

26  WR ITS { IWR ITE  »  24)  RMS.NSET 

24  FORMAT!//,  5X ,  21HQNWT  FAILURE  IN  ICLSB, 

*  /5X,*RMS®*,E12.4,5X,*NSETs*,I2//) 

STOP 

C 

25  CONTINUE 
JO  al 

0Y0=X(2)»SIN(P(  1-.)  )-P(l6)»P(  12) 

DL 1*X ( 3  ) 

0L3*X(5) 

AX  ®X  (  1 )  *X  (  1)*(.5*P(13)*.25*SIN(2.*P(  13  )  >— SIiM(  P  C  13)  )) 

*  ♦X(2)*X(2)*C. 5*P ( 14)*.25*SIN( 2 .*P( 14 ) )-$lN( P( 14) ) ) 
AXX».5*(X(  1) * ( 1 .-C06( P ( 13 ) ) )*p< 6)*°(3) )*P  ( 1 5 )  *P  ( 10 ) 

*  ♦.5*(X(?)*(l.-C0S(Pll4)))*P(6)  )*P(16)*P(  12) 

0AS®AX>AXX*P(6)*P(2)'*.5*P(2)*P(3) 


497 
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C 

IF (M.E0.2JGOTO  33 
C  STORE  POSITIVE  MU  IN  A  ARRAYS 
AYC! J,K.I )=OYC 
AL 1! J,K , I ) =01 1 
AL3( J,K,I )=0L3 
AAS!J,K,I )=OAS 
GOTO  34 

C  STORE  NEGATIVE  MU  IN  8  ARRAYS 

33  BYC!J,K,I)=DYO 
Bill J,<,I ) =0L1 
9L3! J,R,I ) *0L3 
9 AS  !  J  *K  *  I ) =DA  S 

34  CONTINUE 
C 

30  CONTINUE 
C 

C  OUTPUT  ARRAYS 
C 

IF!I.EQ.1)WRITE!IWRITE,6000) 

WRITE  ( IWRIT5»6G02  )  I 

WRITE{IWRIT5f6006)NPTS,0MU,A(I),3(I)  ,LO(I»,GA(I) ,GB!I > 

WRITE! IWR ITE,  6008 )A  Z0( I ) , AYO! 1,1,I),AL1(1,1,I),AAS( 1,1,1) 

6000  FORMAT! 41H1*****  AIR  BAG  ELEMENT  SECTION  PROPERTIES  , 14 1 5H****»  )  ) 
6002  FORMAT  1////14H  ***  DATA  SET  ,I1,24H  ***  MEMBRANE  ELEMENT  *, 

*  M4H****)/> 

6006  FOP  MAT 15X ,*NPTS=*,I2,2X,*DMU=*,F4.3,8X,*A=*,F6.2,*  3=*,F6.2, 

*  *  L0=*,F6.2,*  GA=*,F4.1,*  G8=*, F4. 1/ ) 

6008  FORMAT! 5X,*FR6E  SHAPE  ELEMENT  PROPERTIES  *, 

*  5X,*Z0=*,F6.2,*  Y0=*,F6.2,*  Ll=*,F6.2,*  A$=*,F7.1//) 

C 

WR ITE ( IWR ITE ,6010 ) 

00  42  K=1,NPTS 

42  D1(K)*4Z0(I)*!NPTS-K<-1)/ANPT 

WR ITE ( IWR ITE ,60  20 ) <D1!K) ,K=1,NPT$) 

6010  R0RMAT(5X ,16H**»  ZO  ARRAY  ***/) 

6020  FORMAT ( 5X, 10F3. 2) 

6022  FORMAT! 5X,10F3.1) 

C 

WRITE! IWR ITE, 6030) 

00  50  J=1 , NPTS 

WRITE ( I WR ITE ,6020 ) !AYO!J»K»I)»K=i,NPTS) 

50  CONTINUE 

WRITE IIWRITE, 6042) 

00  51  J=l , NPTS 

WRITE! IWR ITE, 6020) 13Y0! J,K,I),K»1,NPTS ) 

51  CONTINUE  — _ 

C 

WRITE! IWRITE,6032) 

00  52  J*1 , NPTS 

WRITE! I WRITE, 6020) ( ALl f J ,K , I ) ,<* 1,NPTS ) 

52  CONTINUE 
WRITE(IWRITS,6042) 

OC  53  J*1 » NPTS 

WRITE! IWR ITE, 6020) !BLl!J,K, I) ,K*1, NPTS) 

53  CONTINUE 
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Table  175:  LISTING  FOR  SUBROUTINE  ICB  (CONCLUDED) 


C 

WRITSdwRITE,  6034) 

00  54  Jsl.NPTS 

WRITE  I IWRITE, 6020) !AL3! J,K,I) ,K=1,NPTS ) 

54  CONTINUE 

WRITE! IWRITE, 6042) 

DO  55  J*1,NPTS 

WRITE! IWRITE,6020)(&L3IJ,K,I)*K=1,NPTS) 

55  CONTINUE 
C 

WRITE! IWRITE, 6040) 

DO  60  J*1 , NPTS 

WRITE! IWRITE, 6022) <AAS( J,K,I ) ,K=1,NPTS ) 

60  CONTINUE 

WRITE! IWRITE, 6042) 

00  61  J=1,NPTS 

WRITE (I WRITE, 6022) (BAS(J,K,I) ,K=l»NPTS ) 

61  CONTINUE 
C 

6030  FORMAT ( //5X  »*THE  FOLLOWING  ARRAYS  CORRESPOND  COLUMN-TO-ELSMENT* 

*  *  WITH  THE  ZO  ARRAY*/5X,*R0WS  CORRESPOND  TO* 

*  *  INCREASING  MAGNITUDES  OF  MU  BEGINNING  AT  MU=0*/ 

*  5X,*0ATA  GENERATED  FOR  POSITIVE  MU  STORED  IN  1ST  ARRAY*/ 

*  5X,*0ATA  GENERATED  FOR  NEGATIVE  MU  STORED  IN  2N0  ARRAY*/ 

*  /5X, 16H***  YO  ARRAY  ***/ ) 

6032  FORMAT ( //5X , 16H***  LI  ARRAY  ***/ ) 

6034  FORMAT! //5X , 16H***  L3  ARRAY  ***/ ) 

6040  FORMAT!// 5 X,16H***  AS  ARRAY  ***/ ) 

6042  FORMAT!/) 

C 

10  CONTINUE 
r 

RETURN 

ENO 
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OOOOOOOOOOOOOOOOOOOOOOOOO 


Table  176:  LISTING  FOR  SUBROUTINE  ICFS 


CICFS 

SUBROUTINE  ICFS ( X , M ,K »R, P > 

VERSION  3.  FEB. 1978 

PURPOSE  -  DEFINE  INITIAL  CONDITION  FREE  SHAPE  DIGGES  MOOEL 

-  FOR  ACLS  TRUNKS 

MEHTOO  -  SEE  AFFDL-TR-71-50,  THEORY  OF  AN  ACLS  FOR  AIRCRAFT 

-  BY  KENNERLY  H.  OIGGESt  JUNE  1971. 

LIMITATIONS  -  USED  ONLY  BY  ROUTINE  QNWT  IN  SUBROUTINE  IC 
•♦♦OUTPUTS*** 

X  THE  SOLUTION  ESTIMATE  FROM  THE  LAST  ITERATION 
R  THE  RESIDUAL  VECTOR 
♦♦♦INPUTS*** 

X  INITIAL  ESTIMATE  VECTOR 
PCI)  PRINT  CONTROL  OPTION 
0(1)  PRINT  CONTROL  OPTION 
P=0  NO  PRINT  OUT 

P=K  FOR  PRINT  OUT  AT  EVERY  K-TH  ITERATION 
P(2)...P(N>  STORAGE  AVAILABLE  FOR  PASSING  DATA 
TO  SUBROUTINE  FUN (ICFS)  BY  QNWT. 

M»K  DIMENSICN  INDICATORS  FOR  X  AND  AJ  MATRICES 
WRITTEN  BY  -  J.R.KILNER  AND  M.K.WAHl  OCT.  21  1977 

DIMENSION  X(l)fR(l)»P(6) 

C 

R( 1)*X( 1>-X(2)*(1.-P(5> ) 

R(2)=P<4)-X(1)*X<3>-X<2)*X<4) 

R(3)=P(2)-X( 1)*SIN(X(3) )-X(2)*SIN(X(4) ) 

R(4)=P(3)—X(1 ) *{ l.-COS( X (3)) )+X( 2)*( i.-COS ( X (4) ) ) 

C 

RETURN 

END 
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ooooonoooooooooonnonnno 


Table  177:  LISTING  FOR  SUBROUTINE  ICFSB 


CICFSB 

SUBROUTINE  ICFSB (X»M,K»R»P) 

PURPOSE  -  EVALUATE  GEOMETRY  EQUATIONS  FOR  FREE  SHAPE  AIR  BAG 

-  ELEMENT 

METHOO  -  EQUATIONS  DESCRIBE  INELASTIC  MEMBRANE  SUBJECT  TO 

-  UNIFORM  INTERNAL  PRESSURE 

LIMITATIONS  -  USED  ONLY  BY  ROUTINE  QNWT  IN  SUBROUTINE  ICB 
♦•♦OUTPUTS*** 

X  THE  SOLUTION  ESTIMATE  FROM  THE  LAST  ITERATION 

R  THE  RESIOUAL  VECTOR 

•♦•INPUTS*** 

X  INITIAL  ESTIMATE  VECTOR 

P(l>  PRINT  CONTROL  OPTION 
P«0  NO  PRINT  OUT 

P*K  FOR  PRINT  OUT  AT  EVERY  K-TH  ITERATION 
P(2) •••PIN)  STORAGE  AVAILABLE  FOR  PASSING  DATA 
TO  SUBROUTINE  PUN(ICFS)  BY  QNWT. 

M» K  DIMENSION  INDICATORS  FOR  X  ANO  AJ  MATRICES 

WRITTEN  BY  J.R.K'LNER  APRIL  10,1978 

DIMENSION  X( 1) ,R( 1)  ,P(1) 

C 

Rm«P(4)-xm*<X(2)*X<3) ) 
R(2)*Pf?>-X(l>»<SIN(X{2))*SIN(X(3> ) > 
R(3>*P(3)-X(1)*(C0S(X(3))-C0S(X( 2))) 

c 

RETURN 

ENO 
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Table  178:  LISTING  FOR  SUBROUTINE  ICLS 


CICLS 

SUBROUTINE  ICLS ( X ,M ,K ,R ,P ) 

PURPOSE  -  OEFIN6  INITIAL  CONDITION  LOADED  SHAPES  DIGG6S  MOOEL 

-  FOR  ACLS  TRUNKS 

VERSION  3.  FEB. 20  1978 

MEHTOO  -  SEE  AFFDL-TR-71-50,  THEORY  OF  AN  ACLS  FOR  AIRCRAFT 

-  BY  KENNERLY  H.  OIGGESt  JUNE  1971. 

LIMITATIONS  -  USEO  ONLY  BY  ROUTINE  QNWT  IN  SUBROUTINE  IC 

FOR  INPUTS  AND  OUTPUTS  SEE  SUBROUTINE  ICFS 
WRITTEN  BY  -  J.R.KILNER  AND  M.K.WAHI  OCT.  21  1977 

DIMENSION  X(1),R(1),P(6) 

C 

R(1)=X(1)-X(2)*(1.-P(5) ) 

R(2)=P(4)-X(1)*X(3)-X(2)*X(4)-X(5) 

R(3)*P(2)-X(1)*SIN(X(3) )-X(2)*SIN(X(4> l-X(5> 

R{4)=P(3I— Xll)*(i .—COS (X(3)))+X(2)*( l.-COS ( X ( 4 ) ) ) 
R(5>=P<6)-X(2>*<1.-C0S(X(4))> 

C 

RETURN 

END 


nnooorioooooo 


Table  179:  LISTING  FOR  SUBROUTINE  ICLSB 


CICLSB 

SUBROUTINE  ICLS8 ( X ,M»  K,R  »P ) 

PURPOSE  -  EVALUATE  ELEMENT  GEOMETRY  AND  FORCE  BALANCE  EQUATIONS 

-  FOR  LOAOEO  SHAPE  AIR  BAG  ELEMENT 

METHOO  -  EQUATIONS  DESCRIBE  INELASTIC  MEMBRANE  SUBJECT 

-  TO  UNIFORM  INTERNAL  PRESSURE  ANO  GROUND  REACTION 

LIMITATIONS  -  USED  ONLY  BY  ROUTINE  QNWT  IN  SUBROUTINE  IC3 

FOR  INPUTS  ANO  OUTPUTS  SEE  SUBROUTINE  ICFS 
WRITTEN  BY  -  J.R.KILNSR  APRIL  10,1978 

DIMENSION  X(1),R(1  ),P(1) 

C 

00  10  1*1,2 

P( I*14)*X( Xo2)-X<  X )*<3.1416+P(I+6)> 

IF ( PI  H-14).LT.0.)P(I+14)=0. 

P<  I>12>=3 • 141 6+ P( 1  +  6) 

10  IF  (p  (  1*141  .LE.O.)P(I-*-12)=X(If2)/X(I) 

C 

R( i)*X(i)-X(2  >—P ( 5 )*X ( 5 ) 

R(2)*P(4)-X(3)-X(4)-X(5) 

R(3>=P<2>-Xll)*SIN(P( 13 ) )  -X  ( 2 )  *S  IN  ( P 1 1 4)  >-X<5> 

*  ♦P(15)*P<10>*PI16>*P{12> 

R(4)=P(3)— X(l)*( 1 •— COS (P(13)))+X(2)*(l •— COS ( P ( 14 ) ) ) 

*  +P(15 )*P(9)-P{ 16)*P(11) 

R ( 5) *P( 6)—X(2 )*( 1 .—COS  C  P 1 1 4  J ) )  +  P(16)*P(ll) 

C 

RETURN 

ENO 


ooooooonoonoononnoooonnoooo 


Table  180:  LISTING  FOR  SUBROUTINE  IT 


CIT 

SUBROUTINE  IT ( FOt FOOOT , IFO,F IN,GK I , GKL ,AMA, AMI  I 
VERSION  2.  REVISED:  OCT  8  1976 

PURPOSE  -  SIMULATION  OF  AN  INTEGRATOR  WITH  SATURATION 


METHOD  -  SEE  CODING 


LIMITATIONS  -  EXCESSIVELY  HIGH  VALUES  OF  GKL  MAY  RESULT  IN  POOR 
STEAOY  STATE  CONVERGENCE 


WRITTEN 

BY  -  ADAM  LLOYD 

LATEST 

REVISION  -  NOV 

75 

INPUT/OUTPUT  LIST 

FO 

INTEGRATOR  OUTPUT 

ANY 

OUTPUT 

STATE 

FODOT 

OUTPUT  DERIVATIVE 

ANY 

OUTPUT 

OERIV 

1*0 

INTEGRATOR  CONTROL 

— 

PROGRAM  VAR 

FIN 

FUNCTION  INPUT 

ANY 

INPUT 

VAR 

GKI 

INTEGRATOR  GAIN 

ANY 

INPUT 

PA  RAM 

GKL 

DERIVATIVE  LIMITER  GAIN 

ANY 

INPUT 

PARAM 

AMA 

UPPER  LIMIT  OF  OUTPUT 

WHERE  OERIV.  LIMITER  STARTS 

ANY 

INPUT 

PARAM 

AMI 

LOWER  LIMIT  OF  OUTPUT 

WHERE  DERIV.  LIMITER  STARTS 

ANY 

INPUT 

P  ARAM 

EPS*F IN 


C  -  PROVIDE  OEFAULTS  THAT  ELLIMINATE  SATURATION 

I F ( AMA*  EQ • *99999) AMA* 1 . E36 
IF(AKI.EQ..99999)AMI=-1.E36 
IF(FO.GT.AMA)£PS  *  FIN  -  GKL*(FO— AMA ) 

I F < FO *LT • AMI ) E PS  *  FIN  -  GKL*(FO-AMI) 

IF (IFO.NE .0>F000T=GKI*EPS 

RETURN 

END 


nnonooooooooooooooooooo 


Table  181:  LISTING  FOR  SUBROUTINE  KINK 


CKINK 

SUBROUTINE  KINKtVO ,CSI , EC ,ONC ,PKW ,C , X ) 

PURPOSE  -  DETERMINE  ARRESTING  CABLE  KINK  WAVE  ANGLE 

MEHTOD  -  SEE  ARRESTING  SYSTEM  DOCUMENTATION, VOL  I,  FINAL  REPORT 

LIMITATIONS  -  CALLED  ONLY  BY  THE  ARRESTING  SYSTEM  COMPONENT  AS 

***  CALL  SEQUENCE  *** 

***  INPUTS  *** 

VO  -  VEHICLE  VELOCITY  ,  FT/SEC 

CSI  -  INITIAL  CABLE  STRESS,  LBS/SQ  IN 

EC  -  CABLE  MODULUS  OF  ELASTICITY,  LBS/SQ  IN 

DNC  -  CABLE  WEIGHT  OENSITY,  LBS/CU  IN 

***  OUTPUT  *** 

PKW  -  KINK  WAVE  ANGLE,  RAD 

C  -  CABLE  SONIC  VELOCITY,  FT/SEC 

CSTR  -  STRAIN  IN  WAKE  OF  TRANSVERSE  WAVE,  IN/IN 

WRITTEN  8Y  -  J.R.KILNER  MAY  1978 

DIMENSION  X(l) ,P(3)  ,1P(2) ,R( 1) , A J( 1 , 1) ,88(1,3) 
COMMON/CIO/IREAD, IWRITE , IDIAG 
EXTERNAL  RES 
C 

C=SQRT(386.*EC/DNC)/12. 

VC=VO/C 
P( 2)=VC*VC 
P(3)=CSI/EC 
X(1)=P(3> 

P(l)sO. 

IP ( 1 )=50 
C 

CALL  QNWT(X,1,1,RES,P, .0001, IP ,0 , R, RMS ,AJ ,88 ) 

C 

SINPKW*VC/SQRT(X(l)*ll.*X(l)) ) 

PKW=AS IN( S INPKW ) 

C 

RETURN 

END 
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c 

FO 

TRANSFER  FUNCTION 

OUTPUT 

ANY 

OUTPUT 

STATE 

c 

FOOOT 

TRANSFER  FUNCTION 

OUTPUT  OERIV. 

ANY 

OUTPUT 

STATE 

c 

IFO 

INTCGERATOR  CONTROL 

— 

PROGRAM 

1  VAR 

c 

FIN 

TRANSFER  FUNCTION 

INPUT 

ANY 

INPUT 

VAR 

c 

GAI 

TRANSFER  FUNCTION 

GAIN 

— 

INPUT 

PA  RAM 

c 

TC 

TIME  CONSTANT 

SECS 

INPUT 

PA  RAM 

COMMON/C 10/ IRE AOt I WRITE » 1 01 AG 
IF(IFO.NE.O)  FOOOT* I GA I *F I N-FO ) /TC 
RETURN 
ENO 


oooonoooonnno 


Table  183:  LISTING  FOR  SUBROUTINE  LE 


SUBROUTINE  LE (XI , X  ID, 1X1 , FO,F IN,GAI , ZO ,PO ) 

VERSION  2.  REVISED:  SEPT  17  1976 

PURPOSE:  PROVIDE  FIRST  OROER  LEAD-LAG  TRANSFER  FUNCTION 

FO  GAI(  S  ♦  ZO  ) 


FIN  S  ♦  P  0 

CALL  SEQUENCE: 

XlfXlDtlXl  -  STATE, RATE, INT  CONTROL 
FO  -  OUTPUT 

FIN  -  INPUT 

GAI  -  HIGH  FREQUENCY  GAIN 

ZO  -  ZERO  LOCATION 

PO  -  POLE  LOCATION 

OSSIGNEO  BY:  J.O.  BURROUGHS  M 

gfin*gai*fin 

fo=xi*gfin 

IF ( IX1.NE .0)X 10=GF IN*ZO— *0*P0 

RETURN 

ENO 


ooooooooooo 


Table  184:  LISTING  FOR  SUBROUTINE  LG 


CLG 

SUBROUTINE  LG ( FO ,  FOO*  IFO,  FIN,  ZO .  f>0  ) 

VERSION  2.  REVISED:  SEPT  17  1976 

PURPOSE:  provide  first  order  lag  transfer  function 
FO  ZO 


FIN  S  *  PO 

CALL  SEQUENCE: 

FO t FOOt I FO  -  OUTPUT  STATE , RATE , INT  CONTROL 
FIN  -  INPUT 

ZO  -  NUMERATOR  COEFFICIENT 

PO  -  DENOMINATOR  coefficient 

06SIGNS0  BY:  J.O.  BURROUGHS  MAY  1976 

IF(IPO.NE.O)FOO=ZC*FIN-PO*FO 
RETURN 
ENO 


oonnooooooooooooooooooooooo 


Table  185:  LISTING  FOR  SUBROUTINE  LL 


CLL 

SUBROUTINE  LL ( XI , X1DOT , IX 1 , FO ,FI Nt TCI , TC2 ,GAI ) 
PURPOSE  -  TO  SIMULATE  LEAD  LAG  TRANSFER  FUNCTION 

FO  GAI*( 1 .♦TC1*S) 

FIN  ( 1 •♦TC2*S ) 


METHOD  -  SELF  EXPLANATORY 


LIMITATIONS  -  NONE 


WRITTEN  8Y  -  ADAM  LLOYD  LATEST  REVISION  NOV  75 


INPUT/OUTPUT  LIST 

XI  STATE  VARIABLE  ANY  OUTPUT  STATt. 

XIDOT  STATE  VARIABLE  DERIVATIVE  ANY  OUTPUT  STATE 

IX 1  INTEGRATOR  CONTROL  -  PROGRAM  VAR 

FO  TRANSFER  FUNCTION  OUTPUT  ANY  OUTPUT  VAR 

CIN  TRANSFER  FUNCTION  INPUT  ANY  INPUT  VAR 

TCI  TIME  CONSTANT  (NUMERATOR)  SECS  INPUT  PARAM 

TC2  TIME  CONSTANT  (DENOMINATOR)  SECS  INPUT  PARAM 

GAI  TRANSFER  FUNCTION  GAIN  -  INPUT  PARAM 

COMMON/CI O/IR  EAD»IWRITE»IDIAG 
F0=(X1>FIN*TC1*GAI )/TC2 
IF(IX1.NE.0)X 1DOT =  GAI*FIN-FO 
RETURN 
ENO 


ooooononoooonrtooono 


Table  186:  LISTING  FOR  SUBROUTINE  MA 


SUBROUTINE  MA ( FO, F IN,C 1 ,C2 ) 

PURPOSE  -  TO  SIMULATE  THE  EQUATION  OUTPUT=Cl*INPUT  ♦  C2 


METHOO  -  SEE  COOING 


WRIT'.  ’N  BY  -  ADAM  LLOYD  LATEST  REVISION  NOV  75 


LIMITATIONS  -  NONE 


INPUT/OUTPUT  LIST 

FO  OUTPUT  VARIABLE  ANY  OUTPUT  VAR 

FIN  INPUT  VARIABLE  ANY  INPUT  VAR 

Cl  CONSTANT  MULTIPLIER  -  INPUT  PARAM 

C2  CONSTANT  ADDITION  -  INPUT  PARAM 

FO=Cl*FIN  ♦  C2 

RETURN 

END 
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Table  187:  LISTING  FOR  SUBROUTINE  MB 


CMB 

SUBROUTINE  MB ( FO , FNA, FN8 , C 1 , C2 »C3 ,C4, C5 ) 

“URPQSE  -  TO  SIMULATE  THE  EQUATION  Y=C l*XA+C2*XB+C3*XA«XB-*-C4*XA/XB*C- 

WRITTEN  BY  -  GEORGE  DULEBA  LATEST  REVISION  MAY  76 

LIMITATIONS  -  IF  FNB=0  CURING  DIVISION,  FNB  IS  SET  TO  E-20. 

DIAGNOSTIC  MESSAGE  IS  GIVEN. 


INPUT/OUTWJT  LIST 


FO 

OUTPUT  VARIABLE 

ANY 

ouTPir 

FNA 

INPUT  VARIABLE  A 

ANY 

INPUT 

PNB 

INPUT  VARIABLE  B 

ANY 

INPUT 

Cl 

MULTIPLIER  1 

ANY 

INPUT 

C2 

MULTIPLIER  2 

ANY 

INPUT 

C3 

MULTIPLIER  3 

ANY 

INPUT 

CA 

MULTIPLIER  4 

ANY 

INPUT 

C5 

ADDITIVE  VARIABLE 

ANY 

INPUT 

COMMON/ERMESS/IFATAL, IERR 

COMMON/CI O/IR EAO , I WRITE , I OIAG 

FO=  C1*FNA  ♦  C2*FN9  ♦  C3*FNA*FNB  ♦  C5. 

IF JCA.EQ. 0.99999)  GO  TO  30 
IF (FNB.EQ.O.)  GO  TO  10 
FQ=  FO  ♦  CA*FNA/PN3 
RETURN 

10  WRITE! I WRITS, 20) 

20  FORMAT!/, 33X,  53HWARNING-  DIVISOR  IN  MB  EQUALS  0.,  HAS  SEEN  SET=1. 
2E-20) 

rQ=  FO  ♦  C4*BNA*l . E+20 
30  RETURN 
ENO 
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Table  188:  LISTING  FOR  SUBROUTINE  MC 


SUBROUTINE  MC IFO, FIN, FIOtFIP ,C1 »C2,C3, C4> 

PURPOSE  -  TO  SIMULATE  THE  EQUATION  FO=C  1*FIN+C2*F I0+C3*FIP4.C4 


METHOO  -  SEE  COOING 


WRITTEN  BY  -  ADAM  LLOYD 


LIMITATIONS  -  NONE 


INPUT/OUTPUT  LIST 


LATEST  REVISION  NOV  75 


c 

FO 

OUTPUT  VARIABLE 

ANY 

OUTPUT 

VAR 

c 

FIN 

INPUT  VARIA8LE 

ANY 

INPUT 

VAR 

c 

FIO 

INPUT  VARIABLE 

ANY 

INPUT 

VAR 

c 

FI  P 

INPUT  VARIABLE 

ANY 

INPUT 

VAR 

c 

Cl 

constant  multiplier 

— 

INPUT 

PA  RAM 

c 

C2 

CONSTANT  MULTIPLIER 

— 

INPUT 

PARAM 

c 

C3 

CONSTANT  MULTIPLIER 

— 

INPUT 

PARAM 

c 

C4 

CONSTANT  ADDITION 

— 

INPUT 

PARAM 

F0=Cl*FIN+C2*FI0fC3*FIP+C4 

RETURN 

ENO 


ooooooooooooonooooooonooonooooooooooooono 


Table  189:  LISTING  FOR  SUBROUTINE  MG 


CMG 

SUBROUTING  MG(T3,W3,P,POOT,IP,TIfWl,T2,W2,P3*AK,D3,DHY, 

1  AHT  t  TAM»HO» VO  L»  FC ) 

PURPOSE  -  ANALYSIS  OF  FLOW  MERGE*  WITH  TWO  INLET  PORTS  AND  ONE 
OUTLET  PORT 

METHOO  -  SIMILAR  TO  DUCT  MOOEL  DE 


LIMITATIONS  -  AS  FOR  DE 


WRITTEN  BY  AOAM  LLOYD  AS  COMPONENT  *ME*  IN 
ECS  LIBRARY  NOV.  1975 


MOO I  PIED 

BY  -  MAHINDER  WAHI 

AUGUST  1977 

INPUT/OUTPUT  LIST 

T3 

OUTLET  TEMPERATURE 

)  PORT 

DEGR 

OUTPUT 

VAR 

W3 

OUTLET  FLOW 

)  NO  3 

LB/M  IN 

OUTPUT 

VAR 

P 

INTERNAL  PRESSURE 

PSIA 

OUTPUT 

STATE 

PDOT 

INTERNAL  PRESSURE  DERIVATIVE 

PSIA/SEC 

OUTPUT 

DERI  V 

1° 

INTEGRATOR  CONTROL 

— • 

PROGRAM  VAR 

71 

INLET  TEMPERATURE 

)  PORT 

DEGR 

INPUT 

VAR 

W1 

INLET  FLOW 

)  NO  1 

LB/MIN 

INPUT 

VAR 

T2 

INLET  TEMPERATURE 

)  PORT 

DEGR 

INPUT 

VAR 

W2 

inlet  flow 

)  NO  2 

LB/MIN 

INPUT 

VAR 

P3 

OUTLET  PRESS URE( PORT  NO 

3) 

PSIA 

INPUT 

VAR 

AK 

K  FACTOR  )  FOR  PRESSURE 

DROP 

— 

INPUT 

PA  RAM 

D3 

DIAMETER  )  CALCULATION 

IN 

INPUT 

PARAM 

DHY 

HYDRAULIC  OIAMETER  )  TO 

CALCULATE 

IN 

INPUT 

P  ARAM 

AHT 

HEAT  TRANSFER  AREA  )  UA 

FT2 

INPUT 

PARAM 

TAM 

EFFECTIVE  LOCAL  AMBIENT 

TEMP 

DEGR 

INPUT 

PARAM 

HO 

EXTERNAL  HEAT  TRANSFER 

COEFFICIENT 

8TU/FT2 

INPUT 

PARAM 

(BASED  ON  INTERNAL  WETTED  AREA) 

HR  DEGR 

VOL 

INTERNAL  VOLUME 

FT3 

INPUT 

PARAM 

FC 

FREQUENCY  CONTROL  ON  PI 

.  (FC.GE.l.) 

— — 

INPUT 

PARAM 

A  VALUE  OF  FC  GREATER  THAN  1. 

DECREASES  FREQUENCY  RESPONSE  CF  PI 

CORRESPONDINGLY 

COMMON/ERMESS/IFATAL,IERR 

COMMON/CIO/IREAO,lWRITE»IDlAG 

C  CALCULATE  GAS  CONSTANT  AND  RATIO  OF  SPECIFIC  HEATS,  3ASED  ON  AVERAGE 
C  INLET  TEMPERATURE 

TINB=(T1*ABS(W1)*T2*A0S(W2> ) / ( ABS < W l > ♦ A8S < W2 ) ) 
TIN9=AMAXI(AMIN1(TIN8,1600.) ,300. ) 

CP=SHCP(TINB*0.) 

R=53 .3 

GAMMA*1.*R/(778.*CP-R ) 

G 1*1 ./(GAMMA— 1 • ) 

G2=( GAMMA-1. )/2. 

C  CALCULATE  OUTLET  FLOW  BASED  ON  AVERAGE  INLET  TEMPERATURE 
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Table  189:  LISTING  FOR  SUBROUTINE  MG  (CONCLUDED) 


CA*.785 398 *03*03 

CALL  FMFL0W(P,P3fTlNB,CA,AK,PN,W3) 

C  CALCULATE  OVERALL  CONDUCTANCE  (UA)  BASEO  ON  AVERAGE  FLOW 
WBAR*(ABS(W1)*ABS(W2)«-ABS(W3) )/3. 

WBAR«AMAX1 (WBAR..01) 

C  CALCULATE  EFFECTIVE  LENGTH  AL  FOR  HEAT  TRANS  COEFF  CALCULATION 
AL«183.35*AHT/(DHY*0HY ) 

C  CONSTANT  193 .35*144. /(PI/4. >  AL  IS  IN  FEET. 

HINT*HI 11, TINS, TINS ,WBAR,0.,DHY,ALtO.) 

C  THE  INPUT  VALUE  OF  THE  EXTERNAL  HEAT  TRANSFER  COEFFICIENT  IS  BASEO 
C  ON  THE  INTERNAL  WETTED  AREA.  HENCE  UA  IS  GIVEN  BY 
U A  *AH  T*H I N  T*HO/ ( 60 . * I H I NT+HO  > ) 

C  UA  IS  IN  BTU/MIN  OEGR 
C  CALCULATE  EXIT  TEMPERATURE  T3 

T3*TAM+ (TINB-TAM ) /EXP (UA/ (CP*W8AR  J ) 

C  WARNING  DIAGNOSTIC  IF  TEMPERATURE  CHANGE  EXCEEDS  300  DEGR 
IF(ABS(TINB-T3).LE.300.)GO  TO  10 
IF (TINS .GT ,T3  )T3*T IN8-300 . 

IF (T3.GT.TINB )T3*TIN8+300. 

C  TEST  FOR  DIAGNOSTIC  PRINT  OUT 
IF (IERR.NE .1)G0  TO  10 
WRITE (IWRITE»9999) 

9999  FORMATl 10X»46HN0N  FATAL  ERROR  CALLED  FROM  MERGE  COMPONENT  MG/ 

1  10X,35HTEMPSRATUR£  CHANGE  EXCEEDS  300  DEGR) 

10  TBAR*(Tl*T2+T3)/3. 

PBAR=(2.0*P«-P3)/3. 

AM*AMACH( PBAR»TBAR »CA  »WBAR»0. ) 

IF(IP.NE.O)POOT  =R*TBAR*(W 1+W2— W3 )*( 1 •♦G2*AM*AM)**Gl/( 8640 .*VOL*FC ) 

RETURN 

END 
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Table  190:  LISTING  FOR  SUBROUTINE  OC 


SUBROUTINE  OC (G,S , AK » FK.X ,XDOT, INT , Y.YOP ,U,UOP »N ,NY ,NU> 
VERSION  1.  REVISED:  MAY  8  1975 

PURPOSE:  OPTIMAL  CONTROLLER  COMPONENT 
CALL  SEQUENCE:  6  -  OUTPUT  MATRIX 

S  -  INPUT  MATRIX 
AK  -  STABILITY  MATRIX 

FK  -  O.C.  GAIN  MATRIX 

X  -  STATE  VECTOR 
XOOT  -  RATE  VECTOR 
INT  -  INTEGRATOR  CONTROL  VECTOR 
Y  -  INPUT  VECTOR 

YOP  -  INPUT  OPERATING  POINT  OFFSET  VECTOR 
U  -  OUTPUT  VECTOR 

UOP  -  OUTPUT  OPERATING  POINT  OFFSET  VECTOR 
N  -  OPTIMAL  CONTROLLER  OROER 
NY  -  NUMBER  OF  INPUTS 

NU  -  NUMBER  OF  OUTPUTS 

OESIGNEO  5Y:  J.D. BURROUGHS  APRIL  1975 

DIMENSION  G(NU,N),S(N,NYI ,AK(N,N) ,FK(NU,NY> ,X(N> ,XDOT(N> 
l  » INT (N) t Y(NY ) ,U(NU)» YQP(NY) »UOP (NU) 

- >  CALCULATE  O.C.  RATES  XOOT  =  S  *  Y  +  AK  *  X 

— >  TEST  FOR  ZERO  OROER  CONTROLLER 

IF(N.LE.O)GO  TO  200 
DO  160  1*1, N 

- »  BYPASS  CALCULATION  FOR  FROZEN  STATES 

IF ( INT( I) • EQ.O 1GO  TO  160 
SUM*0. 

00  100  J*1,NY 

I  SUM*SUM*S ( I» J )*( Y { J )— YOP ( J ) ) 

00  120  J*1,N 

>  SUM*SUM*AK{I, J)*X(J) 

XOOT ( I ) *SUM 

I  CONTINUE 

- >  CALCULATE  OUTPUTS  U  =  FK*Y  +  G*X 

>  00  260  I* l ,NU 
SUM*UOPCI ) 

00  220  J*1,NY 

)  SUM*SUM*FK (1,J)*(Y(J) —YOP ( J ) ) 

- >  TEST  FOR  ZERO  ORDER  CONTROLLER 

IFIN.LE.OJGO  TO  250 
00  240  J* 1 »N 
)  SUM*SUM>G( I,J)*X( J> 

)  U(I)»SUM 
)  CONTINUE 
RETURN 
END 


Table  191:  LISTING  FOR  SUBROUTINE  OL 


SUBROUTINE  OL  ( FX ,FZ  ,TY ,UD, WO ,  AMAS  ,XCP,  CXO  ,CXA,CXU,CXOE , 

1  CXTR.CXSP ,CXGE»KCXB,CZO,CZA,CZAO,CZQ» CZU.CZDE »CZTR ,CZSP, 

2  CZGE .KCZBfCZOSfCMOfCMA . CMAOt CMQ ,CMU tCMOE ,CMTR»CMSP»CMGE . 
^  KCMB, CMOS ,CMB,KGE, AMASS, C.XAC.OIM, CAS, SAS.SW I, FXIN.FZIN, 
4  TYIN.ELEV ,STAB,SPO,AL,ALP»U,UP,WP,VBAR,QBAR,Q,QW,EU,EW) 

REAL  KCXBtKCZBfKCHB.KGE 

COMMENT JWINO  TUNNEL  DATA  MAY  ALSO  BE  USED, IN 

WHICH  CASE  CXA.CZA.ANO  CM A  ARE  SET  EQUAL 
TO  ZERO.CXOtCZO.ANO  CMO  VALUES  ARE  INTER 
POLATEO  FROM  TABLES. 


VERSION  2.  AUG. 18  1977 

PURPOSE  COMPUTE  LONGITUOINAL  FORCES  AND  MOMENTS 

METHOO  USE  LINEAR  DERIVATIVES  TO  COMPUTE  LIFT  ANO  DRAG  FORCES. 

SOLVE  IMPLICIT  EQUATIONS  FOR  BODY  AXIS  FORCES  ANO  ACCELE¬ 
RATIONS. COMPUTE  PITCHING  MOMENT  INCLUDING  C.P.  TORQUE. 
CALL  SEQUENCE 
******  OUTPUTS  ****** 

FX.FZ  -X  ANO  Z  BODY  AXIS  FORCE  SUM,  LBS 

TY  -Y  BOOY  AXIS  (PITCHING)  MOMENT,  FT-LBS 

UO,WO  -X  ANO  Z  800Y  AXIS  ACCEL®  ATIONS ,  FT/SEC**2 

AMAS  -RIGID  BOOY  MASS,  SLUGS 

XCP  -X  AXIS  DISTANCE  C.P.  -  C.G.  ,  FT 

******  INPUTS  ****** 

AERO-DERIVATIVES  —  UNITS  FOR  OIMENSIONAL  CASE 
ORAG  FORCE  COEFFICIENTS 

CXO  -BIAS  COEFFICIENT  FOR  TRIM,  LBS 

CX A  -ALPHA  COEFCICIENT  (NONDIM.) 

-Z  AXIS  VELOCITY  COEFFICIENT  (DIM.),  LB-SEC/FT 
CXU.CXOE  -X  AXIS  VELOCITY,  ELEVATOR  COEFFICIENT, 

-  LB-SEC/FT,  LB/DEG 

CXTR  -  TAKEOFF  OR  RECOVERY  TRUNK  COEFFICIENT 

CXSP  -  FLIGHT  PLUS  GROUND  SPOILER  COEFFICIENT,  LB/DEG 

CXGE  -  GROUND  EFFECT  FACTOR  ON  CXO 

KCXB  -  LARGE  SIDE  SLIP  ANGLE  FACTOR  FOR  CXO 

LIFT  FORCE  COEFFICIENTS 

CZO  -BIAS  COEFFICIENT  FOR  TRIM,  LBS 

CZA, CZAD  -ALPHA  AND  ALPHA  DOT  COEFFICIENTS  (NONOIM.) 

-Z  AXIS  VELOCITY  ANO  ACCEL.  COEFFICIENTS  (DIM.), 

-  LB-SEC/FT,  L3-SEC**2/FT 

CZQ,CZU,CZDE  -  Q,  X  AXIS  VELOCITY,  ANO  ELEVATOR  COEFFICIENTS, 

-  LB-SEC/DEG,  LB-SEC/FT,  LB/DEG 

CZTR  -  TAKEOFF  OR  RECOVERY  TRUNK  COEFFICIENT 

CZSP  -  FLIGHT  PLUS  GROUNO  SPOILER  COEFFICIENT,  LB/DEG 

CZGE  -  GROUNO  EFFECT  FACTOR  ON  CZO 

KCZB  -  LARGE  SIOE  SLIP  ANGLE  FACTOR  FOR  CZO 

CZDS  -  STABILIZER  COEFFICIENT 


PITCHING  MOMENT  COEFFICIENTS 

CMO  -BIAS  COEFFICIENT  FOR  TRIM,  FT-LBS 

CMA.CMAO  -ALPHA  ANO  ALPHA  DOT  COEFFICIENTS  (NONOIM.) 

-Z  AXIS  VELOCITY  AND  ACCEL.  COEccICI£NTS  (DIM.) 
-  LB-SEC  ,  L3-$EC**2 

CMQ.CMU ,CMOE  -  Q,  X  AXIS  VELOCITY,  ANO  ELEVATOR  COEFFICIENTS 
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Table  191:  LISTING  FOR  SUBROUTINE  OL  (CONTINUED) 


CMTR 

CMSP 

CMGE 

KCMB 

CMOS 

CMS 

KGE 


-  FT-LB-SEC/OEG,  LB-SEC,  FT-LB/DSG 
-TAKEOFF  OR  RECOVERY  TRUNK  COEFFICIENT 
-FLIGHT  PLUS  GROUND  SPOILER  COEFFICIENT,  LB/OEG 
-GROUNO  EFFECT  FACTOR  ON  CMO 

-LARGE -SIDE  SLIP  ANGLE  FACTOR  FOR  PITCHING  MOMENT 
-STABILIZER  COEFFICIENT 
-LARGE  SIDE  SLIP  ANGLE  COEFFICIENT 
-GROUNO  EFFECT  HEIGHT  FACTOR 


CONSTANTS 

AMASS  -RIGID  BODY  MASS,  SLUGS 

C  -MEAN  AERODYNAMIC  CHORD,  FT 

XAC  -X  AXIS  OISTANCE  C.P.-C.G.,  FT 

DIM  -INDICATOR  FUNCTION  FOR  AERO-COEFFICIENTS 

O*  BODY  AXIS,  DIM. 

1*  BOOY  AXIS,  NONDIM. 

2-  STABILITY  AXIS,  DIM. 

3*  STABILITY  AXIS,  NONDIM. 

CAStSAS  -DIRECTION  COSINES  FOR  STABILITY  AXES  OR 

-BODY  AXES  DEPENDING  ON  DIM 

SWI  — INOICATOR  FUNCTION  FOR  DEGREES  OF  FREEDOM 

1=  SINGLE  OOF;  U»X  BOOY  AXIS  VELOCITY 
2=  TWO  DOF;  W*Z  BOOY  AXIS  VELOCITY  ANO 
Q=Y  BODY  AXIS  ANGULAR  RATE 
3*  THREE  DOF;  U,W,Q;FULL  MODEL 


EXTERNAL  FORCES 
FXIN,FZIN 
TYIN 

AERO-VARIABLES 

ELEV 

STAB 

SPO 

AL,  ALP 
U 

UP,WP 

VBAR 

QBAR 

Q 

QW 

EU,EW 


AND  MOMENTS 

-X  AND  Z  BODY  AXIS  FORCES,  LBS 
-Y  BODY  AXIS  (PITCHING)  MOMENT,  FT-LBS 

-ELEVATOR  OEFLECTION ,  OEG 
-STABILIZER  OEFLECTION,  DEG 
-SPOILER  DEFLECTION,  DEG 

-ANGLE  OF  ATTACK  IN  800Y  AND  STABILITY  AXES,  DEG 

-X  BOOY  AXIS  VELOCITY,  FT/SEC 

-X  AND  Z  PERTURBATION  VELOCITIES  (NONOIM.) 

-X  AND  Z  STABILITY  AXIS  VELOCITIES  (OIM.),  FT/SEC 
-TRUE  AIRSPEED,  FT/SEC 

-DYNAMIC  PRESSURE  TIMES  REFERENCE  AREA,  LBS 
-Y  BODY  AXIS  ANGULAR  RATE,  OEG/SEC 
-Y  BODY  AXIS  ANGULAR  RATE  GUST,  OEG/SEC 
-X  ANO  Z  BODY  AXIS  ACCEL.  TERMS  FOR  EXPLICIT 
-UOOT  ANO  WOOT  SOLUTIONS,  FT/SEC**2 


WRITTEN  BY  A.W,  WARREN  AS  COMPONENT  *L0*  IN 
FLT. CONTROLS  LIBRARY  SEPT  1976 


MODI FIEO  BY  MAHINOER  WAHI 


MAY  1977 


INITIALIZATION 

OATA  INO,  RPO  /Of  .0 1745329/ 
IF(INO.EQ.l)  GO  TO  10 
Ie(CXO  .EQ.  .99999)  CXO  «0. 

IF (CX A  .EG.  .99999)  CXA  »0. 

IF (CXU  .EQ.  .99999)  CXU  »0. 

IF (CXOE.EQ.  .99999)  CXDE*0. 
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Table  191:  LISTING  FOR  SUBROUTINE  OL  (CONTINUED) 


10 


80 

9C 

100 


IF (CXTR .£Q  .  .99999) 

C  X  T9  =  0  . 

IP (CXSP.cQ •  .99999) 

CXSP=0. 

IP ( CXG5.EQ .  .99999) 

CXGE=0 . 

IPtKCXS.EQ.  .99999) 

KCXB=1. 

IFtCZO  .60.  .99999) 

CZO  =0. 

IP (CZA  .EQ.  .99999) 

CZA  =0. 

IPICZAO.EQ.  .99999) 

CZA0*0. 

IF (CZQ  .60.  .99999) 

CZQ  *0. 

IF (CZU  .60.  .99999) 

CZU  =0. 

IF (CZD5.EQ .  .99999) 

CZDE=0. 

IF (CZTR .60 •  .99999) 

CZTR=0. 

IF (CZSP.6Q •  .99999) 

CZSP=0. 

IF (CZG6 .60  *  .99999) 

CZG6=0. 

IF (CZDS.60.  .99999) 

CZDS-O. 

IFCXCZB.EQ.  .99999) 

<CZB*1. 

IF (CMO  .EQ.  .99999) 

CMO  *0. 

IF(CMa  .EO.  .99999) 

CM A  =0. 

IF(CMAO.EQ.  .99999) 

CMA0=0. 

IB (CMQ  .60.  .99999) 

CMQ  =0. 

IFtCMU  .60.  .99999) 

CMU  =0. 

IF(CM06.E0.  .99999) 

CMD£=0. 

IFICMTR.EO.  .99999) 

CMTR=0. 

I F (CMSP.EO •  .99999) 

CMSP*0. 

IF (CMGE.EQ.  .99999) 

CMG c=0. 

IF (CMOS. EQ.  .99999) 

CM0S=0. 

IF  (CM9  .EQ.  .99999) 

CMB  =0. 

IF (KCMB .EQ .  .99999) 

KCMB=1. 

IF (KGE  .EQ.  . ©9999 ) 

XGE  =0. 

IF (XAC  .SQ.  .99999) 

XAC  =0. 

IF  (ELEV.EQ.  .99999) 

EL£V=C. 

IF(STA8.EQ.  .99999) 

STAB=0. 

IF ( SPO  .EQ.  .99999) 

SPO  *0. 

IND=1 

XCP*  XAC 

AMAS  =  AMASS 

Ie (SWI.EQ. 1. )  GO  TO 

80 

IFISWI.EQ.2.)  GO  TO 

90 

IF ( SWI . EQ .3 • )  GO  TO 

100 

WPaSW=Q=QW=CMQ=CZQ* 

CXA=CZA=CZAO=CMA 

GO  TO  100 

CXU=CZU*CMU=UP=EU*0 

• 

CONTINUE 

Ic (0IM.5Q.1.  .OR.  0IM.6Q.3.)  GO  TO 

OIMENSIONAL  FORCE 

WWCOTa  QW*V3AR*RP0 

EXPLICIT  SQLUTICN  =0R  AERO-FORCES  USING  ASCL,3S0L 
ASCL*  1.-  CZAO/AMASS 
3SCL«  SW-  SAS*Eu-  WWOOT 

FX*(CXO  ♦  CXA*WP  ♦  CXU*UP  ♦  CXDE*6LEV  ♦  CXTR 
1  ♦  CXSP*S?0  «•  CXGE*KG6)*KCX8 
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Table  191:  LISTING  FOR  SUBROUTINE  OL  (CONTINUED) 


FZ*  (  CIO  ♦CZA*WP  +CZ A0*8S0L  ♦CZQ*Q  >CZU*UP  ♦CZDE*ELEV 
1  +CZTR  ♦CZSP*SPO  ♦  CZGE*KGE  ♦CZDS*STAB ) *KCZB 

PZ AERO*  FZ/ASOL 

COMPUTE  BOOY  AXIS  FORCE  SUMS  ANO  ACCELERATIONS 

IF (OIM.EU *0* )  GO  TO  30 

STABILITY  AXIS  SUMS  AND  TRANSFORMATION 

FXS*  FX  ♦  FZIN*SAS  ♦  FXIN*CAS 
FZS*  (FZ  ♦  FZIN*CAS  -  FXIN*SAS)/AS0L 
FZ AERO*  FZAERO*CAS  ♦  FX*SAS 
PX*FXS*CAS  -  FZS*SAS 
FZ*FZS*CAS  ♦  FXS*SA S 
GO  TO  40 

BOOY  AXIS  SUMS 

30  FX*  FX  ♦  FXIN 

FZ*  (FZ  ♦  FZIN )/A SOL 
40  UO*  FX/AMASS  ♦  EU 
WO*  FZ/AMASS  ♦  EW 

PITCHING  MOMENT  COMPUTATIONS 
WDP*  WO  -  SAS*UD  -  WWOOT 

TY*  (  CMO  ♦CM A*WP  ♦CMAO*WDP  ♦CMQtQ  ♦CMIWJP  ♦CMOE*ELEV 
l  +CMTR  ♦CMSP*SPO  ♦CMGE*KG£  ♦  CMDS*STAB  ♦CMB)*KCMB 

70  TY*  TY  ♦  TYIN  -  XAC*FZAERO 
RETURN 


NONDIMENS IONAL  FORCE  AND  MOMENT  SOLUTION 

20  CD IM  *  C/( V3AR+VBAR) 

ALi*  AL*RPD 
ALP1*  ALP*RPD 
QI*  Q*RPO 
SLEV1*  SLEV*RPD 
SP01*  SPO*RPO 
STAB1*  STAB*RPO 

EXPLICIT  SOLUTION  FOR  AERO-FORCES  USING  ASOLrBSOL 
OIV*  l./(AMASS*U) 

ASOL*  1.-  Q8AR*CDIM*CZA0*0IV 

FX*  QBAR*<  CXO  ♦CXA*ALPl  ♦CXU’t'UP  ♦CXDE*ELEV1  ♦CXTR 
I  ♦CXSPWSPOl  ♦CXGE*KGE)*KCX8 

FXS*  FX  ♦FXIN*CAS  ♦FZIN*SAS 

3S0L*  FXSMSAS— ALI  )*DIV  ♦  (EW-AL 1*EU)/U  -  QW*RPO 
FZ*  QBAR* (  CZO  ♦CZA*ALP1  ♦CDIM* ( CZA0*8S0L  ♦CZQ*Q1> 

1  ♦CZU’t'UP  ♦CZDE*ELEV1  ♦  CZTR  ♦CZSP*SP01 

2  ♦  CZGE*KGE  ♦  CZDS*STABU  *KCZB 
FZAERO*  FZ/ASOL 
IF (DIM.EQ • 1 • )  GO  TO  50 

STABILITY  AXIS  SUMS  AND  TRANSFORMATION 

FZAERO*  FZAERO*CAS  ♦  FX*SAS 
FZ S*  (FZ  ♦FZIN^CAS  -FXIN*SAS ) /AS OL 
6000  F0RMAT(1H0,F12.5,F12.5) 

FX*  FXS*CAS  -  FZS*SAS 
*Z*  FZS*CAS  ♦  FXS*SAS 
GO  TO  60 
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Table  191:  LISTING  FOR  SUBROUTINE  OL  (CONCLUDED) 


l 

BOOT  AXIS  SUMS  AND  ACCELERATIONS 

50  FX*  FXS 

PI*  1FZ  ♦  FZXN)/ASOL 
PZS*  FZ 

60  UO*  FX/AMASS  ♦  EU 
WO*  FZ/AMASS  ♦  EW 

PITCHING  MOMENT  COMPUTATION 

ALOOT*  PZS*0IV  ♦  3S0L 

TY*  QBAR*C*(CMO  ♦CMA*ALPl  ♦  CDIM*(CMAD*ALDOT  ♦CMQ*QI> 

1  ♦CMU*UP  ♦CMDE*ELEV1  +CMTR  ♦CMSP*SP01 

2  ♦CMGE*KGE  ♦CMDS*STAB1  ♦CMB)*KCMB 
GO  TO  70 
ENO 
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Table  192:  LISTING  FOR  SUBROUTINE  00 


COO 

SUBROUTINE  00(0FN,QPT,QPC,QPAfQV  ,QTC,QTA,QCA,PAF  ,PF,FCY 
2»FPT,FCT»FPC*  FFO, TX  »TTX,TwX,TCX,TDX»TZ »TTZ,TQZ,TOZ,TCZ,TFZ,HHY 
3,RR1,RR2,LL1,LL2,AGP,AACH,XTN,XTA,XTC,ATA,ATC,VVTX 
A, VVCH  »DUM ) 

c 

c 

C  VERSION  I  MARCH  1979 

C 

C  WRITTEN  BY  -  GS  OULEBA 
C 

C  “URPOSE  -  TO  CONVERT  FOSTER  MILLER  OUTPUT  VARIABLES  INTO 
C  EASY  COMPONENT  OUTPUT  VARIABLES 

C 

C  *****  OUTPUTS  ***** 

C 

C  QTC  TRUNK-TO-CUSHION  FLOW,  CFS 

C  OTA  TRUNK-TO-ATMOSPHERE  FLOW,  CFS 

C  OCA  CUSH  ION- TQ-ATMOSPHERE  PLOW,  CFS 

C  OFN  TOTAL  FAN  FLOW,  CFS 

C  QPA  PLENUM-TO-ATMOSPHERE  FLOW,  CFS 

C  OPC  PLENUM— TO— CUSHION  FLOW,  CFS 

C  CPT  PLENUM-TO-TRUNK  FLOW,  CFS 

C  OV  PRESSURE  RELIEF  VALVE  FLOW,  CFS 

C  PAP  FAN  INLET  PRESSURE,  PSFG 

C  °F  FAN  PRESSURE  RISE,  PSF 

C  FCY  TOTAL  vertical  FORCE,  LBS 

C  CPT  TRUNK  CONTACT  FORCE,  LBS 

C  FCT  TRUNK  DAMPING  FORCE,  LBS 

C  FPC  CUSHION  FORCE,  LBS 

C  FFO  AERO  DRAG  FORCE  IN  HEAVE,  LBS 

C  TX  TOTAL  TORQUE  X  AXIS,  FT-L3S 

C  TJX  TRUNK  PRESSURE  TORQUE  X  AXIS,  FT-L3S 

C  TQX  TRUNK  OAMPING  TORQUE  X  AXIS,  FT-L8S 

C  TCX  CUSHION  PRESSURE  TORQUE  X  AXIS,  FT-LBS 

C  TDX  AERO  OR  AG  TORQUE  X  AXIS,  FT-L3S 

C  TZ  TOTAL  TORQUE  Z  AXIS,  FT-LBS 

C  TTZ  TRUNK  PRESSURE  TORQUE  Z  AXIS,  FT-LBS 

C  TQZ  TRUNK  DAMPING  TORQUE  Z  AXIS,  FT-LBS 

C  TDZ  AERO  DRAG  TORQUE  Z  AXIS,  FT-LBS 

C  TCZ  CUSHION  PRESSURE  TORQUE  Z  AXIS,  FT-LBS 

C  TFZ  GROUND  FRICTION  TORQUE  Z  AXIS,  FT-LBS 
C  HHY  TRUNK  HEIGHT,  FT 

C  RR1  OUTER  TRUNK  RADIUS  OF  CURV,  FT 

C  RR2  INNER  TRUNK  RAOIUS  OF  CURV,  FT 

C  LL1  TRUNK  LENGTH  OUTER-HORIZ  ATTACH  POINT,  FT 

C  LL2  TRUNK  LENGTH  INNER-nORIZ  ATTACH  POINT,  FT 

C  AG?  AREA  CF  CUSHION  GAP,  SQ  ?T 

C  AACH  AREA  CF  CUSHION,  SQ  FT 

C  XTN  AREA  Oc  TRUNK-GROUND  CONTACT,  SQ  FT 

C  XT  A  TRUNK-ATMOS  AREA  IN  CONTACT  AREA,  SQ  FT 

C  XTC  TRUNK-CUSHION  AREA  IN  CONTACT  AREA,  SQ  FT 

C  ATA  TRUNK  TO  ATMOS  AREA,  SO  FT 

C  ATC  TRUNK  TO  CUSHION  AREA,  SQ  FT 

C  VVTK  TRUNK  VOLUME,  CU  CT 

C  VVCH  CUSHION  VOLUME,  CU  FT 
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Table  192:  LISTING  FOR  SUBROUTINE  00  (CONTINUED) 


*****  INPUTS  ***** 

DUM  DUMMY  VARIABLE 


COMMON/COE FFS /CPA , CAF ,CPC  »CPT»CTC, CGAP  »CTA»CVENT ,CKK 

COMMON/FOR TQ/FCP » FTP, FOR CT » FOF ,FORC EY »  TCPX , TTPX »  TORQTX »  TOFX , 
lTORQUEXtTCPZt TTPZtTCRQTZf TDFZrTORFZ.TORQUEZ 
COMMON/ ARE AV/S , AATFN ,APLAT, APLCH , APLTK , ATKAT, ATKCH , AGAP , ATK , ACH , 
1  ATKCN  » APR V, VCH, VTK, VPLM,  VC HO »  VFAN » ATK ATC  »ATKCHC 


C 

C 


C 


C 

c 


c 


c 

c 


c 


c 


c 

c 


c 

c 

c 


COMMON/GEOMET /A,B»rtYI ,L, D, LS , LP , SH,NH, AH, NR , PHI 1 ,PHI2 ,R 1 , R2 , L 1 » L2 , 

1A1 »A2»Xl,X2 ,HY 

COMMON/8TERM/B1 1, B1 2, B 13, 821,922,823, 331, 832,833 

COMMON/ SH APE/ AG API { 100  > , AGAPR ( 100 ) , ATK I ( 100 ) , ATK  R( 100  > , ATKCHI ( 100 ) 

1 ,  ATKChR ( 100) , ATKATI ( 100 ) , ATKATR ( 100 )  ,ACHI ( 100 ) ,ACHR ( 100) 

2 ,  A  TKCNI (ICO) , ATKCNR (100) , VCHI ( 100 ) , VCHR< 1 00 ) , VTK I < 100 ) , VTKR ( 100 ) 

3, X CH (  100)  »XTK  ( 100  ) ,  ZCH  ( 100 )  ,  ZTK  I  100  )  ,P ERI  { 1  CO  ) 

COMMON/STATE/PPLM,PCH,PTK,SINKRT,YCG,OPHI,OTHETA,THETAE,PHIE,SIE 
1  , XV, VV  »QFANX 

COMMON/VEHCL/MASS , A IX , A IZ , AIXY ,AIYZ,AIZX,CC ,GG, FF, AlF AN 

COMMON/SP ACE/N, M, BETA, DELX,XCX( 100) , ZCX( 100 ) , XG( 100 ) , YG( 100 ) , 

1ZG(100) ,SL4(100),YGH( 100),ISEG( 100 ) , IT YP ( 100 ) , DELTA ( 1 00 ) , XCHI ( 100 ) 
2,ZCHI (100)  ,XCG 

C0MM0N/L0A03/F0RCNS (3,10) ,CCS (3, 10) , YCGS( 3, 10 ) , PHI S ( 3 , 10 ) , AGAPS ( 3 , 1 C , 
110)»PCHS(3»10),QFAN$(3,10),PFANS(3»10) ,PPLMS ( 3 , 1 0 ) ,THIS ( 3 , 10 ) , 
1FFS(3,10) , TORXS (3,10) ,TORZS ( 3 , 10 ) ,PTKS (3,10) 

COMMON/COMPRS/ALO,AH,AL2,AL3,AL4,GO,G1»G2,G3,G4,QP1 

COMMON/FLUID/QFAN,QPLAT,QPLCH,QPLTK,QTKAT,QTKCH,QCHAT,PATFN,PFAN, 

1  PAT ,TEMP AT,RHO,QVENT 

COMMON/DYNAMIC/TIME ,FTIME,DTIME, IQ,NQ, DVCH, OVTK, VELX, DERY ( 13 ) 

1 ,OVCHP 

common/estmd/gec,dampc,u,deccl,hoc,pha,cenfx,cenfz,zeprv,zprv 

1,QP2, SLOPE 


COMMON/LABL/LABEL ( 90) 

COMMON/ST  ATIC/YSTRT ,YSTOP»PSTRT , PSTOP,TSTRT ,TSTOP 
1,PHIYC,THEYC,YCPHI ,YCTHE 

COMMON/PRV/OPRV , PPLM8 ,XA , AKPRV , AMPRV ,S PRV ,N PRV , AVEN T 
COMMON/PL AGS/ ICLN, IDIF, IF  LAG, 1ST AT, I P°,IPRV, MM, N STOP 
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Table  192:  LISTING  FOR  SUBROUTINE  OO(CONCLUDED) 


COMMON/HCUR/AHC , AH  1 , AH2 , AH3 

COMMON/ SAVE/R lI»R2I»PHIlI»PHI2ItLlItL2I«AlI ,A2I , 0202H3I ,OXAMABI , 

1  3ETAD2I,SINPHRI,D2I»SINPH2I,A1MA2,X1I ,X2I,X12I , SI 
REAL  LI »LL 1 *L2 »LL2 

********* ************************************************ ******** 


QTC=QTKCH 

QTAsQTKAT 

OCA*QCHAT 

QFN*QFAN 

QPA=QPLAT 

QPC*QPLCH 

QPT*QPLTK 

QV=QVENT 

PAFsPATFN 

pp=PFAN 

FCT*FORCT 

FPC-FCP 

TCX=TCPX 

TOXsTOFX 

TFZ=TORFZ 

TQXaTORQTX 

TTX=TTPX 

FCY=FORCEY 

TX=TORO'JEX 

TZ=TORQUEZ 

FPTsFTP 

ffo*fof 

TCZ=TCPZ 

TOZ=TDFZ 

TQZ=TORQTZ 

TTZ=TT PZ 

HHY*HY 

RR 1=R 1 

RR2=R2 

LL1=L1 

LL2*L2 

AT  A=ATKAT 

ATC*ATKCH 

AACHsACH 

XTA*ATKATC 

VVCHsVCH 

VVTK=VTK 

XTN=ATKCN 

A(5P=AGAP 

XTC*ATKCHC 

RETURN 

END 
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Table  193:  LISTING  FOR  SUBROUTINE  OUTFM 


COUTFM 

SUBROUTINE  OUTCM(INUM) 


VERSION  l  MARCH  1979 

WRITTEN  BY  -  GS  0ULE8A 

PURPOSE  -  TO  REPLACE  FOSTER  MILLER  SUBROUTINE  -OUTPUT-. 

OUTPUT  CONTAINED  PLOTTING  LOGIC  WHICH  IS  INCOM¬ 
PATIBLE  WITH  THE  EASY  PROGRAM. 


INTEGRATION  GEOMETRY  CALCULATION  AND  OUTPUT 

COMMON/FLUID/QFAN,QPLAT,QPLCH,QPLTK,QTKAT,QT<CH,QCHAT,PATFN,PFAN, 

1  PAT* TEMP AT  ,RHO»QVENT 

COMMON/OYN AM! C/TIME, FTIME.OTIME, IQ,NQ, OVCH, DVTK, VELX , OERY ( 13 ) 
1,DVCHP 

COMMON/ES  TMD/GEC , DAMPC ,U ,OECCL ,HOC , PHA ,CENFX ,CENFZ, ZEPRV, ZPRV 

1, QP2,SLOPE 

COMMON/COMPRS/ALO, AL1,AL2,AL3,AL4,G0,G1,G2,G3,G4,QP1 
COMMON/ARE AV/S,AATPN, APLAT, APLCH.APLTK, ATKAT, ATKCH, AGAP,ATK ,ACH, 

1  ATKCN , APR V, VC H, VTK  ,VPLM » VCHD  » VF AN, ATKATC  * ATKCHC 
COMMON/ST ATE/PPLM  »PCH  ,PTK,SINKRT »YCG»DPHI ,DTHETA ,THETAE ,PHI E » SI E 

l  ,xv,vv,qfanx 

COMMON/PR V/DPRV,PPLMB,XA,AKPRV,AMPRV,SPRV,NPRV,AVENT 
COMMON/FLAGS/ICLN  ,  IDI F, IF  LAG* ISTAT»IPP,IPRV  ,MM  »NSTOP 
COMMON/SHAPE/AGAPldOO)  ,AGAPR(  100)  ,ATK  1(100  )  ,ATKR(  100),  ATK3HI(  100) 
1 »A  TKCHR (100) *  ATKAT I (100) »  ATKATR  ( 100) »ACHI (100) » ACHR ( 100 ) 

2,  ATKCN I (100) tATKCNR(lOO) ,VCHI( 100) , VCHR ( 100 ) , VTK I ( 1 00 ) * VTKR ( 100 ) 

3 ,  XCH ( 100 ) »XTK(lC0) ,ZCH( 100) »ZTK( 100 ) , P ERI ( 1 00 ) 

COMMON/SP ACE/N ,M, 8  ETA,DELX,XCX( 100) ,ZCX( 100) ,XG( 100 ) , YG ( 100 ) , 

IZG(IOO) ,SL 4(100 ) ,YGH( 100) ,ISEG( 100) , ITYP( 100) , DELTA (100) ,XCHI ( 100) 
2,ZCHI( 100)  ,XCG 

COMMON/GEOMET/A ,8 , HYI , L, 0 ,LS , LP , SH,NH, AH, NR, PHI1 , PH  12 ,R 1 , R2 , L 1 , L2 , 

lAl  ,A2,X1,X2 ,HY 

DATA  PI, RADIAN/3. 141592653, 57. 29 5779/ 

C 

IF(INUM>100, 1,100 
1  J»1 

IF (MM .LE.O )MM=1 

I*MM— 1 

K=50 

VCHS«VCH 
VTKSaVTK 
I X  T  *0 
JXTal 

100  CONTINUE 

C  UPDATE  AREAS,  VOLUMES  AND  DVCHP. 

C  CALCULATE  DVCH 

CALL  TRUNK (ISHAP5) 

IF(ISHAPE.fo.O)  .GO  TO  555 
CALL  SSGMNT(l) 

CALL  COO RON 
CALL  ORCFILS 
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Table  193:  LISTING  FOR  SUBROUTINE  OUTFM  (CONCLUDED) 


CALL  CLRNCE 
CALL  SHAPE2 
OVCH« (VCH-VCHS )/OTIME 
C  UPDATE  OVCHP 

CALL  CDVCHP 

PRAT*AMAX1  (O.OfAMINKl.Ot  (PCH/PTK) ) ) 

C  COMPUTE  NEW  HY  FROM  PCH/PTK  FOR  NEXT  STEP 
CALL  HYCURV(PRAT.HX) 

HY«HX*HYI 

CALL  TRUNK (ISHAPE) 

IF(ISHAPE.EO.O)  GO  TO  555 
CALL  SEGMNT(i) 

CALL  COORON 
CALL  PROFILE 
CALL  CLRNCE 
CALL  SHAPE 2 
C  CALCULATE  DVTK 

OVTK*( VTK-VTKS l/OTIME 
C  COMPUTE  HORIZONTAL  VELOCITY 
VELX*VELX-OECCL*OTIME 
IF ( VELX .LE  .0.0) VELX=0 • 

I  =  I*1 

13  VCHS=VCH 
VTKS=VTK 

IF  NO  PRV  SET  IPRV=0  AND  SKIP 
IF (NPRV.LE .0)  GO  TO  75 
C  DETERMINE  IF  PRESSURE  RELIEF  VALVE  OPENS 
PRFOR=PPLM*APRV 
IF( XV. LE. 0.0001 )G0  TO  70 
XXX=XA— 0. 0001 
IF (XV.GE.XXX)GO  TO  62 
GO  TO  65 
C  CLOSED  PRV 

70  COFOR-PPLMB*A PRV 

IF ( PRFOR.GT.COFOR ) GO  TO  65 
75  IPRV=0 

GO  TO  66 
C  FULL  OPEN  PRV 

62  C0F0R*PPLM6*APRV+AKPRV*XA 
IF(PRFOR.LT.COFOR)GO  TO  65 
IPRV*0 
XV*XA 
GO  TO  66 

C  NORMAL  RELIEF  OPERATION 

65  IPRV»1 

66  CONTINUE 
XCG»XCG*VELX*OTIMS 

1C  RETURN 

555  WRITE (6»556) 

556  FORMAT(//,^OX,2  7H**»  FAILURE  TO  CONVERGE  «*> 
KI LL31/ISHAPE 

END 
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Table  194:  LISTING  FOR  SUBROUTINE  PARAMS 


CP  AR  AMS 

SUBROUTINE  PARAMS 

INITIALIZE  PARAMETERS  FOR  FMA  ACLS  PROGRAM 

COMMON/ESTMO/GEC , OAMPC.U ,DECCL ,HDC  ,  PHA ,CENFX,CENFZ ,ZEPRV, ZPRV 
1 ,QP2*SLOPE 

COMMON/ST A TE/pPLM, PCH, PTK ,SINKRT  »YCG»DPHI ,DTHETA ,THETAE  , PHI E»  SI E 

1  • XVtVVtQFANX 

COMMON/VEHCL/MASS,AIX,AIZ,AIXY,AIYZ,AIZX,CC,GG,FF,AIFAN 
COMMON/COE FFS/C PA  »CAF , CPC  »CPT ,CTC ,CGAP  »CTA»CVENT  ,CKK 
COMMON/PRV/OPRV  ,PPLMB  »XA  »  AKPRV ,AMPRV  »S  PRV  »NPRV  ,  AVENT 
COMMON/FLAGS/ 1 CLN  » IDI F  » I FLAG* I STAT, I PP  »IPRV ,MM, NSTOP 
COMMON/SPACE/N, M, BETA, DELX,XCX{ ICO) ,ZCX( IOC) ,XG( 100 ) , YG( 100 ) , 
1ZG(100),SL4(100>,YGH(100),ISEG{100),ITYP( 100) , DELTA  1 100 ) ,XCHI ( 100 ) 

2  »  Z  CH I  ( 100  )  ,  XCG 

COMMON/FLU I D/QF AN , QPLAT, QPLCH,QPLTK ,QTKAT »QTKCH  »QCHAT ,PATFN,PFAN» 

1  PAT,TEMPAT,RHO,QVENT 

FLOW  COEFFICIENT 
CKK*1.4 
CPA=0.6 
CAF=l.O 
CPC=0 .60 
CPT*0.90 
CTC=0.76 
CTA*0.76 
CGAP*1.0 
CVENTsO.70 

OTHER  ESTIMATEO  PARAMETERS 
G£C=0.2 
ZEPRV=0. 15 
U=0. 5 
DECCL*0. 

CENFXs-CC 
CENFZ=-FF 
0AMPC=3.2 
QP2*5  »0 
SL0PE=10.0 

NSTOP *4*f  N+M  ) 

C  CLEAR  OELTA  ARRAY  TO  ZERO 
00  10  1*1, NSTOP 
OELTA <I)*0.0 
10  CONTINUE 

C  ************************* 

RETURN 

END 
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Table  195:  LISTING  FOR  SUBROUTINE  PERF 


CPERP 


SUBROUTINE  PERF(ZGAP,L1,L3,L3P,LP,LH,RA,Y0,Y0PS,D,AP,PT,PC,PA 
1  BET, AHA1 * AHA2 » AHC2 »AHC1) 

REAL  L1,L3,L3P,LP, LH, LHA1 , LHC  1 ,L3A , L3C 


VERSION  1 


PURPOSE  -  TO  CALCULATE  ORIFICE  AREAS  FOR  FLOW  TO 
ATMOSPHERE  AND  TO  CUSHION* 


MATHOD  -  SEE  TRUNK  DOCUMENTATION .VOLUME  I 
FINAL  REPORT. 


LIMITATIONS  -  CALLED  ONLY  BY  TRUNK  COMPONENT  TK 


WRITTEN  BY  J.R.KILN6R 


TEST  FOR  GROUNO  CONTACT 
DA>0*AP 

IF (ZGAP *GE .0* )GOTQ  50 


L0A06D  TRUNK  SHAPE 


LHAUL1-LP 

LHCI«LP*LH-L1-L3P 

PX»L3/C2.*PT-PC-PA) 

L3A«(PT-PA)*PX 

L3C*(PT-PC)*PX 

EA1*EA2*EC2*EC1*1. 


TEST  FOR  SIDE  ELEMENT 


IFIBET.EQ.O.IGOTO  20 


RN«RA+YO 

RD*RA«-YOFS 

EA1«IRN*L3>.5*LHA1)/RD 

EA2*(RN«-L3-.5*L3A)/R0 

EC2»(RN*.5*L3C>/RD 

EC1»(RN-.3*LHCI)/RD 


IFILHAl.LE.O. )G0T0  22 
IF (LHC1 *LE  *0* )G0T0  24 


AHA1*AHAI+LHA 1»0A*EA1 

AHA2*AHA2*L3A*0A*EA2 

AHC2«AHC2*L3C*0A*EC2 

AHC1«AHC1*LHC1*0A*EC1 

RETURN 


24  IF (-LHCI .GE.L3C )G0T0  26 
C  CASE  2 

AHA1»AHA1*LHA l*0A«EAl 
AHA2*AHA2*L3A*DA*E A2 
A  HC2*  A HC2  ♦  ( L3C  *LHC  I )  *0A  *EC 2 
RETURN 
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Table  195:  LISTING  FOR  SUBROUTINE  PERF  (CONTINUED) 


C 

26  IP (-LHC1.GE.L3 )GOTO  28 
C  CASE  3 

AHAl»AHAl*LHAl*DA*EAl 
AHA2»AHA2+-  (L3+LHC1 )*OA*GA2 
RETURN 
C 

C  CASE  4 

28  AHAl*AHAl*LH»DA*EAl 

RETURN 
C 

22  IF(-LHA1.GE.L3A)G0T0  30 

IF(LHC1.LE.0.)G0T0  32 
C  CASE  5 

AHA2-AHA2+ (L3A-M.HA I >*0A*EA2 
AHC2«AHC2*L3C*DA*EC2 
AHC1=AHC 1+ LHC 1*0A*EC1 
RETURN 
C 

32  IF (-LHCl.GE.L3C )GOTO  34 

C  CASE  6 

AHA2* AHA2* ( L3 A+LHA 1 )*0A*EA2 
AHC2* AHC2+ ( L3C+LHC I )*0A*EC2 
RETURN 
C 

C  CASE  7 

34  AHA2»AHA2>(L3-M.HA1+LHC1)*DA*EA2 

RETURN 
C 

30  IF(-LHA1.GE.L3)G0TQ  36 

IF (LHC1.LE .0. )GOTO  38 
C  CASE  8 

AHC2*AHC2+ (L3*LHA1 )*0A*EC2 
AHC1*AHC1>LHC1*0A*ECI 
RETURN 
C 

C  CASE  9 

38  AHC2*AHC2-*-<L3*LHA  l*LHC 1 ) *0A*EC2 

RETURN 
C 

C  CASE  10 

36  AWC1*AHCI+LH*0A*6C1 

RETURN 
C 

C  FREE  TRUNK  SHAPE 
C 

50  LHA1*L1— LP 

LHCl*LP-*-LH-LI 

EA1*EC1*1. 

C 

C  TEST  FOR  SIDE  ELEMENT 
C 

IF (3ET.SQ.0. )GOTO  52 
C 

RO*RA«-YOPS 

SAl*(R0-*-.5*LHAl)/R0 


Table  195:  LISTING  FOR  SUBROUTINE  PERF  (CONCLUDED) 


EC 1»  C  RD-. 5*LHC1 ) /RO 


IF(LHAl.LE.O. >GOTO  54 
IF(LHCl.LE.O.»GOTO  56 
CASE  11 

AHA1»AHA1+LMA1*0A*EA1 

AHC1«AHCH>LHC1*0A*EC1 

RETURN 


C  CASE  12 

56  AHA1«AHA1*LH*0A*EA1 
RETURN 


C  CASE  13 

54  AHC1»AHC1*LH*0A*EC1 
RETURN 


Table  196:  LISTING  FOR  SUBROUTINE  PERFB 


CPERFB 

SUBROUTINE  PERFB ( ZGAP ,L1 , L3 ,L? , LH, D, AP  ,AH1, AH2 > 
REAL  Ll,L3,LP,LH,LHA,LHB 
C 

C  VERSION  1.  APRIL  10,1978 

C 

C  PURPOSE  -  TO  CALCULATE  ORIFICE  AREAS  FOR  AIR  BAG 
C  -  OUTFLOW  THRU  SURFACE  PERFORATIONS 

C 

C  METHOO  -  SEE  AIR  BAG  DOCUMENTATION, VOLUME  I, 

C  FINAL  REPORT. 

C 

C  LIMITATIONS  -  CALLED  ONLY  BY  AIR  BAG  COMPONENT  AS 
C 

C  WRITTEN  BY  J.R.KILNER 
C 

C  TEST  FOR  GROUNO  CONTACT 
0A»0*AP 

IF(ZGAP.GE.O.)GOTO  50 
C 

C  LOAOED  SHAPE 
C 

LHB»LI-LP 

LHA-LP+LH-H-L3 

C 

IF(LHB.LE.O.)GOTO  22 
IF(LHA.LE.O.)GOTO  24 
C  CASE  1 

AH  1*AH1  LHA+LHB )  *0A 
AH2*AH2+L3*0A 
RETURN 
C 

24  IF (-LHA.GE  »L3  JGOTO  26 

C  CASE  2 

AH1«AH1+LHB*0A 
AH2*AH2+ I L3+LHA ) *0A 
RETURN 
C  CASE  3 

26  AH 1*AH1+LH*0A 

RETURN 
C 

22  IF(-LHB.GE.L3)G0T0  30 

IF (LHA.GE .0. ) GOTO  32 
C  CASE  4 

AH2*AH2»LH*0A 

RETURN 

C 

C  CASE  5 

32  AH1»AH1*LHA*0A 

AH2*AH2*I L3+LHB ) *0A 
RETURN 
C 

C  CASE  6 

30  AH1«AH1*LH*DA 

RETURN 
C 
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Table  196:  LISTING  FOR  SUBROUTINE  PERFB  (CONCLUDED) 


FREE  SHAPE 


AH1*AH1*LH*0A 

RETURN 

ENO 
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Table  197:  LISTING  FOR  SUBROUTINE  PRND 


CPRNO 

FUNCTION  PRNOdFLt  T*SH) 

PURPOSE  -  TO  CALCULATE  PRANDTL  NUMBER 

KETHOO  -  PR*SPECIFIC  HEAT  X  VISCOSITY/THERMAL  CONDUCTIVITY 

-  FLUID  PROPERTIES  OBTAINED  FROM  FUNCTIONS  PROP  AND  SHCP 

WRITTEN  BY  -  AOAM  LLOYD  LATEST  REVISION  NOV  75 

LIMITATIONS  -  DEPENDENT  ON  FLUIO.  SEE  PROP  AND  SHCP 


INPUT/OUTPUT  LIST 


PRND 

PRANDTL  NUMBER 

OUTPUT 

ifl 

INTEGER  DESIGNATING  FLUID 
(AS  OEFINED  IN  FUNCTION  PROP) 

INPUT 

T 

TEMPERATURE 

DEGR 

INPUT 

SH 

SPECIFIC  HUMIDITY  OF  WATER  VAPOR 
(USED  FOR  IFL* I  ONLY) 

LB/LB 

INPUT 

COMMON/ERMESS/IFAT  AL» IERR 
COMMON/CI O/IREAO, IWRITE ,1 01 AG 
IF ( IFL.GT . 1)G0  TO  20 
CP=SHCP(T,SH) 

GO  TO  30 
20  CP=PROP<IFLtl,T> 

30  XMU=PR0P(IeL*2»T) 

CON=PROP( IFL»3,T) 

PRND=CP*XMU/CON 

RETURN 

END 
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Table  198:  LISTING  FOR  SUBROUTINE  PROFILE 


CPROPILE 

SUBROUTINE  PROPILE 
C  USER  SPECIFIED  GROUNO  PROFILE. 

C  ELEVATION  YG(I>  IS  EXPRESSED  AS  A  FUNCTION  OF  X  AND  Z  COORDINATES 
C  OF  GROUNO  POINT  I,  I.E.  XGCI)  AND  ZG(I) 


COMMON/S  PACE/N , M , B  ETA , OE  LX , XCX ( 1 00 ) , ZC  XC 1 00 ) , XG ( ICO ) , YG ( 1 00 ) , 

1ZG  (100)  tSLM  100)  ,YGH( 100 > ,ISEG( 100 )  ,  ITYP(  100)  ,OELTA  ( ICO ) , XCHI  ( 100  ) 
2.ZCHI (100) ,XCG 

COMMON/FLAGS/ ICLN,IDIF,IFLAG, 1ST AT, I PP,IPRV, MM, NSTOP 


DO  10  I»1,NST0P 
C  SET  FOR  FLAT  TERRAIN 
YG ( I ) *0 • 

10  CONTINUE 
RETURN 
END 
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Table  199:  LISTING  FOR  SUBROUTINE  PROP 


CPROP 

FUNCTION  °ROP( I , IP »T) 

PURPOSE  -  TO  CALCULATE  FLUID  PROPERTIES  (SPECIFIC  HEAT,  ABSOLUTS 
-  VISCOSITY,  THERMAL  CONDUCTIVITY,  DENSITY) 

METHOO  -  USES  POLYNOMIAL  APPROXIMATIONS  PROP«F(TEMP) 
LOGARITHMIC  FIT  FOR  VISCOSITY  OF  LIQUIDS 


WRITTEN  BY  -  ADAM  LLOYD  LATEST  REVISION  NOV  75 


LIMITATIONS  -  VALID  TEMPERATURE  RANGES 

FLUID  TMIN  TMAX 

(DEGR) 

1600 
1000 
800 
650 
600 
700 
900 
600 


ORY  AIR  300 
WATER  AT  SAT  PRESSURE  500 
60/40  EGW  400 
HEAT  TRANSPORT  FLUID  FC-75  400 
FUEL  JP-4  (MIL-F-5624)  400 
HEAT  TRANSPORT  FLUID  OC-331  400 
HYORAULIC  FLUID  (MIL-H-83282)  *00 
HYDRAULIC  FLUIO  (MIL-H-5606)  400 


INPUT/OUTPUT  LIST 

PROP  FLUID  PROPERTY  OUTPUT 

I  INTEGER  DESIGNATING  FLUID  -  INPUT 

*1  DRY  AIR 

*2  WATER  AT  SATURATION  PRESSURE 

*3  60/40  ETHYLENE  GLYCOL/WATER 

*4  HEAT  TRANSPORT  FLUID  FC-75 

*5  FUEL  JP-4  (MIL-F-5624) 

=6  HEAT  TRANSPORT  FLUID  OC-331 

*7  HYDRAULIC  FLUID  (MIL-H-83232) 

*8  HYDRAULIC  FLUID  (MIL-H-5606) 


IP  INTEGER  DESIGNATING  PROPERTY  TO  BE  CALCULATED  INPUT 


*1 

SPECIFIC  HEAT 

3TU/LB  DEGR 

=  2 

ABSOLUTE  VISCOSITY 

LB/FT  HR 

*3 

THERMAL  CONDUCTIVITY 

BTU/FT  HR  DEGR 

*4 

DENSITY 

L3/FT3 

mm**  DENSITY  CALCULATION 

NOT  VALID  FOR  I»1  **** 

T  TEMPERATURE  AT  WHICH  PROPERTY  IS  REQO  OcGR  INPUT 


(DIMENSION  CP( 5,8) , VIS (5,8) ,THX ( 5 ,8 1 ,R0 15 ,8) 
C0MM0N/5RMESS/IFATAL,IERR 
COMMON/CIQ/IR  EAO , IWRITS ,IDI AG 
DATA  CP/ 

1  .24788  ,-*2.C46E-06,  5.7679E-C8 ,-l*.93l£-12,  C.  , 

2  *.5302  ,-2.04lOE-02,  4.3086E-05,-*.0179E-08,  1.4219E-11, 
3-9.2343E-01,  7.5662S— 03,— 1.3232E-05,  1  .1 255 E-08 , -3 . 7296E-12  , 
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Table  199:  LISTING  FOR  SUBROUTINE  PROP  (CONTINUED) 


4 

3.5504E-02, 

9.0754E— 04, 

-1.96726-06, 

2 .53226-09 

,— 1 .2045E— 12 , 

5 

1.1300E-01, 

1.0223E-03, 

— 1 .4367E— 06 , 

2 .26676—09 

,-1.33336-12, 

6 

3. 2800 E— 01, 

1.8000E— 04, 

0.  , 

0. 

,  0.  , 

7 

4.2498E-01, 

-6.6351E— 04, 

2.51186-06, 

-2.4196E-09 

,  8 • 6285E- 13  , 

8—1 .47016— 01 » 

2 • 9948 E— 03 , 

-7.1652E— 06, 

9.1111E— 09 

,-4.24246-12/ 

DATA  VIS/ 

1 

5.50Z9E-03, 

8.7157E— 05, 

— 2.9464E— 08, 

6.2500E-12 

,  0.  , 

2 

2. 36496*0 1, 

-9. 1079E— 02, 

1.29696-04, 

-8 .44876— 08 

,  2. 0822 E— 11 , 

3 

1 .17866*02, 

-6.4304E-01, 

1.36686-03, 

-1.31996-06 

,  4.81956-10, 

4 

4.73776*01, 

-2.5971 E-Oi, 

5.73986-04, 

-5.91916-07 

,  2.33726-10, 

5 

7.79776*01, 

— 5.2305E— 01, 

1.37456-03, 

-1 .6488E-06 

,  7. 51 266—10 , 

6 

4.07996*01, 

— 1.9543E— 01, 

3.98156-04, 

-3.83206-07 

,  1.4228E— 10, 

7 

7.04216*01, 

— 2.9404E— 01, 

4.88156-04, 

-3.7464E-07 

,  1.1020E— 10, 

8 

8 .90646+0 1, 

— 4.4104E— 01, 

8.52896-04, 

-7.41 08E-07 

,  2. 41586-10/ 

DATA  THK/ 

1 

1.3500E— 03, 

2.77806-05, 

-4.28576-09, 

1 .04166-12 

,  0.  , 

2—1 .4950 E+00, 

8.62836-03, 

-1.5038E— 05, 

1.20596-08 

,— 3. 8228E— 12 , 

3 

5.7303E— 01, 

-2.2*796-03, 

5.572  IS -06 , 

-5.79906-09 

,  2.09796-12, 

4 

4.7389E— 02 , 

— 1.1812E— 05, 

-2.5552E-08, 

2.69986-11 

,-1.03086-14, 

5 

7.6450E— 0  2, 

1 • 1592E— 04, 

-4.49176-07, 

6.3333E— 10 

,— 3.3333E— 13, 

6-1.5520E— 01, 

1.71816-03, 

—4.42 17E— 06 , 

4.8222E-09 

,— 2.0000E— 12, 

7 

1.2821E-01, 

-2.07316-04, 

3. 36156-07, 

—2 .72876—10 

,  8.2338E— 14, 

8 

1.2497E-01, 

— 1.4185E— 04, 

1.40456-07, 

-1.55566-10 

,  6.06066-14/ 

DATA  RO/ 

1 

8 .0800 E— 02, 

0.  , 

0.  , 

0. 

,  0.  , 

2 

5.22896*00, 

3.21856-01, 

— 6.4108E— 04, 

5.4250E-07 

,-1.81826-10, 

3 

7.64136*01, 

— 3.5580E— 02, 

9.26856-05, 

-1 .4564E-07 

,  6.57346-11, 

4 

2.77516*02, 

-1. 02046*00, 

2.6867E— 03, 

-3. 39476-06 

,  1.57626-09, 

5 

6.40006*01, 

-3.00006-02, 

0.  , 

0. 

,  0  •  , 

6 

7.64796*01, 

-3.5024E— 02, 

3.3333E— 06, 

— Z .91906—18 

,  1 .29476—2 1 , 

7 

5  .65676*01, 

3.3975E— 02, 

-1.4570E— 04, 

1  .5879E-07 

, -6. 21186-11, 

8 

2.575*€*01» 

2.71836-01, 

-7.9985E— 04, 

9.55566-07 

,-4.24246-10/ 

T=ANAX1(T,350.  > 

GO  TO  (10,20,30,40)  IP 
C  CALCULATION  OF  SPECIFIC  HEAT 
10  PROP=( ( (CP(5,I)*T«-CP(4,I) )*T*CP(3,I ) )*T*CP(2»I))*T+CP(1»I) 

GO  TO  50 

C  CALCULATION  OF  VISCOSITY 

20  PROP=((  <VIS<5 ,1  >*T*VIS(4,I  >)*T+VIS(3,I  )  )*T+VI S ( 2  ,1 )  >*T*VIS(1,I) 
IF(I.GT.i.5>  PR0P=6XP ( PROP ) 

GO  TO  50 

C  CALCULATION  OF  THERMAL  CONDUCTIVITY 
30  PROP*  ( (  (THK(5,I  )*T*THK (4 , I )  )*T+THK ( 3 , 1 ) )  *T*THK  ( 2  ,1 )  )  *T«-THK  ( l ,  I ) 
GO  TO  50 

C  CALCULATION  OF  DENSITY  ****  INVALID  FOR  1=1  **** 

40  PROP=(  (  (R0(5,I)*T+R0(4,I>  >*T*R0(3,I)  >*T*RO  (  2 , 1 ) )  *T+  RO  ( 1 ,  I ) 

C  TEST  FOR  DIAGNOSTIC  PRINTOUT 
50  IF  (IERR.NE.UGO  TO  200 
C  TEST  IF  TEMPERATURES  ARE  WITHIN  RANGE 

GO  TO (110,120, 130, 1M), 150,160,170, 130)  I 
110  IFfT.GT. 300. AND. T.LT. 1600)  GO  TO  200 
WRITE (I WRITE, 9999) 

9999  FORMAT! IOX,32HNON  FATAL  ERROR  CALLED  FROM  PROP/ 

l  1GX,41HT6MPSRATUR£  OF  AIR  NOT  WITHIN  VALID  RANGE) 

GO  TO  200 

120  I=(T. GT. 500. AND. T.LT. 1000. )G0  TO  200 
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Table  199:  LISTING  FOR  SUBROUTINE  PROP  (CONCLUDED) 


WRITE (I  WRITE, 9998) 

9998  FORMAT! 10X.32HN0N  FATAL  ERROR  CALLED  FROM  PROP/ 

1  10X,43HTEMPERATURc  OF  WATER  NOT  WITHIN  VALID  RANGE) 

GO  TO  200 

130  IF(T.GT.400.AND.T.LT.800.)GO  TO  200 

WRITEC I WRITE ,9997) 

9997  FORMAT! 10X ,32HN0N  FATAL  ERROR  CALLED  FROM  PROP/ 

1  10X,47HTEMPERATURE  OF  60/40  EGW  NOT  WITHIN  VALID  RANGE) 

GO  TO  200 

140  IF(T.GT.*00.AND.T.LT.650. )G0  TO  200 

WRITE! IWR ITE, 9996 ) 

9996  FORMAT! 10X, 32 HNON  FATAL  ERROR  CALLED  FROM  PROP/ 

1  10X,43HTEMPERATURE  OF  FC-75  NOT  WITHIN  VALID  RANGE) 

GO  TO  200 

150  I F (T»GT .400, AND. T « LT.600 • )G0  TO  200 
WRITE ( IWR ITE ,9995 ) 

9995  FORMAT! 10X,32HN0N  FATAL  ERROR  CALLED  FROM  PROP/ 

1  10X,42HTEMPERATURE  OF  JP-4  NOT  WITHIN  VALID  RANGE) 

GO  TO  200 

160  IF!T.GT.400.ANO.T.LT.700.)GO  TO  200 

WRITE! IWR ITE, 9994) 

999*.  FORMAT!  IOX,32HNON  FATAL  ERROR  CALLED  FROM  PROP/ 

1  10X,44HTEMPERATURE  OF  DC -331  NOT  WIHTIN  VALID  RANGE) 

GO  TO  200 

170  IF!T.GT.400,AND.T.LT.900.)G0  TO  200 

WRITE! IWR ITE, 9993) 

9993  FORMAT!  10 X,32HN0N  FATAL  ERROR  CALLED  FROM  PRO'S/ 

1  10X,61HTEMPERATUR£  OF  HYD  FLUID  (MI L— H-83282 )  NOT  WITHIN  VALID  RA 
2NGE) 

GO  TO  200 

180  IF (T.GT.400.AND.T.LT.700)  GO  TO  200 
WRITE ( IWR ITE, 9992 ) 

9992  FORMAT! 10 X, 32 HNON  FATAL  ERROR  CALLED  FROM  PROP/ 

1  10X, 60 HTEMPERATURE  OF  HYD  FLUID  (MIL-H-5606)  NOT  WITHIN  VALID  RAN 
2GE ) 

200  RETURN 
END 


536 


o  o  o  o 


Table  200:  LISTING  FOR  SUBROUTINE  PT 


CPT 

SUBROUTINE  PT ( FX, FXOOT , IFX ,FZ ,TY ,60, TM ,ST, SR, Cl ,C2, SIG, 

1  GA,TC,TH,XA> 

VERSION  1.  AUGUST  19,  1977 

PURPOSE  PITCH  CONTROL  THRUSTER 

C— METHOD  VECTORED  THRUST  IS  A  FUNCTION  OF  SIG  IN  A  SATURATION  FUNCTION, 

C  WHERE  SIG  IS  AN  INPUT  FROM  AIRCRAFT  CONTROL  SYSTEM  COMPONENT, 

C  IF  THE  ENGINE  DEPENDENCE  INDICATOR  ED  IS  1,  VECTORED  THRUST 

C  CAPABILITY  IS  DEPENDENT  ON  ENGINE  THRUST  ED=0  SETS  AVAILABLE 

C  VECTORED  THRUST  TO  A  CONSTANT, 

C— CALL  SEQUENCE 
C  *****  OUTPUTS  ***** 

C  FX  ENGINE  THRUST  REDUCTION 

C  FXDOT » IFX  THRUST  REDUCTION  RATE»INT  CONTROL 

C  FZ  VECTORED  THRUST-VERTICAL  FORCE 

C  TY  PITCH  MOMENT  DUE  TO  THRUSTER 

c  *****  inputs  ***** 

C  ED  ENGINE  DEPENDENCE  INDICAT0R(ED=1.0,YES  ED=0.0,N0> 

C  TM  THRUSTER  MAXIMUM  FORCE  FOR  ENGINE  INDEPENDENT  SYSTEM 

C  ST  SLOPE  FOR  VECTORED  THRUST  AS  FUNCTION  OF  ENGINE  THRUST 

C  SR  SLOPE  OF  ENGINE  THRUST  REDUCTION  AS  FUNCTION  OF  VECTORED  Th 

C  Cl  SATURATION  FUNCTION  SLOPE 

C  C2  SATURATION  SLOPE 

C  SIG  AIRCRAFT  CONTROL  SYSTEM  SIGNAL  TO  THRUSTER 

C  GA  FIRST  ORDER  LAG  GAIN 

C  TC  FIRST  OROER  LAG  TIME  CONSTANT 

C  TH  ENGINE  THRUST 

C  XA  THRUSTER  PITCH  MOMENT  ARM 

C 

C  WRITTEN  8Y  MAHINDER  WAHI  (BASED  ON  COMPONENT  *YC*) 

C 

C — SWITCH  FOR  ENGINE  DEPENDENCE 
IB  (  EO  ,GT ,0,5)'  GO  TO  1 
TVA=TM 
GO  TO  2 

C— AVAILABLE  VECTOREO  THRUST 

1  TV A=ST*TH 

C — SATURATION  INTERCEPT 

2  C3=TVA/C1 
C6=-C3 
CA*C1 
C5=C2 

C  SATURATION  FUNCTION,  FZ(SIG) 

CALL  SA(FZ,SIG,C1,C2,C3,C4,C5,C6) 

IF(ED.LT.0.5>  GO  TO  3 
C — ENGINE  THRUST  REDUCTION  FUNCTION 
FR=— SR*ABS (FZ ) 

C — 1ST  ORDER  LAG  ON  ENGINE  RESPONSE 

IF(IFX.NE.O)  FXDOT  =  ( FR*GA-FX ) /TC 

3  CONTINUE 

C— VECTORED  THRUST  MOMENTS 
TY  =  -FZ*XA 
RETURN 
END 
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Table  201:  LISTING  FOR  SUBROUTINE  RA 


CRA 

SUBROUTINE  RA ( XNU » XNV » XNW ,  XNP ) 

COMMON  /CSIMUL/11,12, I3,N1,N2,N3,TINC,TMAX 
VERSION  2.  REVISED  OCT  22  1976 

PURPOSE:  GENERATE  RANDOM  VARIABLES  FOR  MIND  MODEL 
METHOD:  DISCRETE  RANOOM  VARIABLES  WITH  MEAN  ZERO  ANO 

VARIANCE  =2*TINC  APPROXIMATE  UNIT  VARIANCE  WHITE  NOISE 

******  OUTPUTS  ****** 

XNU, XNV, XNW  -NOISE  SAMPLES  FOR  U,V,W  GUST  VELOCITIES 

XNP  -NOISE  SAMPLE  FOR  P  ANGULAR  RATE  GUST 

DESIGNEO  BY  A. W. WARREN  SEPT.  1976 

OATA  OUM/. 99999/ 

SIG*  SQRTt TINC+TINC ) 

CALL  RN(XNU,DUM,SIG,  0.) 

CALL  RN (XNV,DUM,SIG,0. ) 

CALL  RN(XNW»0UM»SIG,0. ) 

CALL  RN(XNP,DUM,SIG,0.) 

RETURN 
END 
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Table  202-  LISTING  FOR  SUBROUTINE  RENVX 


CRENVX 

FUNCTION  RENVX! IFL,W,T,D> 

PURPOSE  -  TO  CALCULATE  REYNOLDS  NUM8ER  OF  A  FLUID  IN  AN  ELEMENT  OF 
CIRCULAR  CROSS-SECTION 

METHOD  -  RE»!4.*W/PI*MU*0) 


LIMITATIONS  - 


WRITTEN  BY  ADAM  LLOYD  LATEST  REVISION  NOV  75 


INPUT/OUTPUT  LIST 


C 


RENVX  REYNOLDS  NUMBER 

IFL  INTEGER  DESIGNATING  FLUID! SEE 

W  FLOW  RATE 

T  TEMPERATURE 

D  DIAMETER 

NOTE  -  VISCOSITY  IS  ONLY  FLUID  PROPERTY. 
HUMIDITY  NOT  REQUIRED 
COMMON/CIO/IREAD, I WRITE, I DI AG 
XMU=-  PROP! IFL,2,T) 
RENVX=A8S(916.732*W/(XMU*0) ) 

CONSTANT  =  4*12*60/PI 
RETURN 
END 


OUTPUT 


PROP) -  INPUT 

LB/MIN  INPUT 
DEGR  INPUT 
IN  INPUT 


HENCE  INPUT  OF  SPECIFIC 
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Table  203:  LISTING  FOR  SUBROUTINE  RES 


CRES 

SUBROUTINE  RES < X ,M ,K ,R  ,  P ) 

PURPOSE  -  EVALUATE  CABLE  STRAIN  EQUATION 

LIMITATIONS  -  CALLED  ONLY  BY  ROUTINE  QNWT  IN  ROUTINE  KINK 

WRITTEN  BY  -  J.R.KILNER 

DIMENSION  X(l),R(i),P(l) 

A*X(I)*fl.*XI  1>) 

B=$QRT(A>-X(1)+P(3) 

9  =  0*8 

R(l)*P(2>-*-B-A 

RETURN 
END 


Table  204:  LISTING  FOR  SUBROUTINE  RG 


CRG 

SUBROUTINE  RG(P2,P20,I?2,U2,Q2D, IQ2 ,R2 ,R2D, IR2, PX, PXD, IPX, LX, QXD 
I  IQX,RX,RX0,IRX,P1,Q1,R1,SL,DMP,WN) 

C  VERSION:  1,  REVISED:  JUNE  I  1976 

C  PURPOSE:  MOOEL  OYNAMICS  ANO  SATURATION  OF  THREE  RATE  GYROS 
C  METHOD:  THE  SAME  2NO  OROER  OYNAMICS  AND  SATURATION  LIMIT  IS 
C  APPLIEO  TO  EACH  RATE  GYRO.  SATURATION  IS  APPLIED 

C  BY  INCREASING  FEEDBACK  SIGNAL  AROUNO  INTEGRATORS  BY  A 

C  FACTOR  OF  100. 

C  CALL  SEQUENCE: 

C  *****♦*»*#«,*♦★**♦**  OUTPUTS  ********************* 

C  P2,Q2,R2  -  OUTPUT  RATES,  RAD/SEC. 

C  PX » QX ,RX  -  INTERMEDIATE  STATES 

C  ********************  INPUTS  ******************** 

C  Pl,Qi,Rl  -  INPUT  (SENSED)  RATES,  RAO/SEC. 

C  SL  -  SATURATION  LIMIT,  RAD/SEC  (SAME  FOR  ALL  GYROS) 

C  OMP  -  DAMPING  COEFFICIENT  (SAME  FOR  ALL  GYROS) 

C  WN  -  NATURAL  FREQUENCY,  RAD/SEC.  (SAME  FOR  ALL  GYROS) 

C  DESIGNED  BY:  J.D.  BURROUGHS  JUNE  1976 

C  ==========—=  ROLL  RATE  =============== 

F8=P2 

C - SATURATION  FEEDBACK  CALCULATION  ======= 

IF  CABS ( P2 ) .GT ,SL) F3  =  100*( P2— SIGN ( SL » P2  ) )+SIGN ( SL  *P2 ) 
IF(IPX.NE.0)PXD=WN*(P1-FB) 

IF(IP2.NE.0)P2D=HN*(PX-2*0MP*FB) 

C  ==========  PITCH  RATE  ============  = 


-  SATURATION  FEEDBACK  CALCULATION  ======== 

IF( ABS(Q2 ) .GT .SL) F8=100*( Q2-SIGN(SL , Q2 ) )+SIGN( SL,02) 

IF(IQX.NE.C)QXD=WN*(Q1-F3) 

IF(IQ2.NE.0)Q20=WN*(QX-2*0MP*F3) 

=========  YAW  RATE  ============== 

FB=R2 

- SATURATION  FEEDBACK  CALCULATION  ======= 

IF ( ASS ( R2) .GT.SL)F6=100*(R2-SIGN(SL,R2))+SIGN(SL,R2) 
IF ( IRX.NE .0)R  X0=WN* ( R 1-F3 ) 

IF ( IR2.NE.O)R2D=WN*(RX-2*DMP*FB ) 

RETURN 
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Table  205:  LISTING  FOR  SUBROUTINE  RN 


CRN 

SUBROUTINE  RN(U,AX,SIG.AMN) 

VERSION  l.  REVISED:  OCT  7  1976 

PURPOSE  -  GENERATES  A  NORMALLY  DISTRIBUTED  RANDOM  NUMBER 
CALL  SEQUENCE 

U  -  THE  RANDOM  NUMBER  OUTPUT 

AX  -  A  START  PARAMETER  WHICH  CONTROLS  THE  BEGINNING  POINT 
OP  THE  OUTPUT  SEQUENCE.  AX  SHOULD  BE  ANY  ODD  NUMBER 
GREATER  THAN  ONE.  THE  DEFAULT  VALUE  OF  AX  IS  43146971. 
AX  IS  UPDATED  FOR  NEW  CALLS  TO  THE  SUBROUTINE 
$IG-  THE  OESIREO  STANDARO  DEVIATION  OF  THE  SEQUENCE 
AMN-  THE  OESIREO  MEAN  OF  THE  SEQUENCE 
DESIGNED  BY  ROGER  W.  CALL  SEPT.  1976 

DATA  IY/25396781/ 

IF  t AX • EQ. . 99999) AX *43 146971 » 

IX  *AX 
SUM*0 . 

DO  1  I*ltl2 
IX»IX*IY 

SUM*SUMfIX/28 1474976710655. 

1  AX*IX 

U*f SUM-6. 0)*SIG*AMN 
RETURN 
END 
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Table  206:  LISTING  FOR  SUBROUTINE  ROTATE 


CROTATE 

SUBROUTINE  ROTATE 

C  9MATRIX  TRANSFORMS  A  VECTOR  FROM  VEHICLE  FRAME  TO  INERTIAL  FRAME 
C 

COMNON/STATE/PPLM,f>CH,PTK,SINKRT,YCGfOPHI,OTHETA,THETAE,PHIE,SIE 
I  tXV,VV*OFANX 

COMMON/9TERM/B11,B12,B13,B21.B22,B23,B31,B32,933 
CO  MMON/FL AGS/ 1 CLN , IDIF , IFLAG » I STAT , I PP ,IP  RV  »MM ,NSTOP 

CALCULATE  TRANSCENDENTALS 
CS IE*COSI S IE) 

CPHIE=COS(PHIE> 

CTHETAE-COS ( THETAE 1 
SSIE*SIN(SIE) 

SPNIS*SIN ( PHI E ) 

STHETAE*S IN (THETA E) 

C 

C  COMPUTE  TRANSLATION  MATRIX  ELEMENTS 

3U*CSIE*CPMIE+STHETAE*SPHIE*SSIS 

B12»SPHIE*CTHETAE 

813*-SSIE*CPHIE*STHETAE*SPHIE*CSIE 

B2  l»-SPHIE*CS IE+SSI  E*CPHIE*STHETAE 

B22»CPHIE*CTHETAE 

B23«SPHIE*SSIE-K:SIE*CPHI6*STH6TAE 

B3l»SSIE*CTHETAE 

932*-STHETAE 

833*CSIE*CTHETAE 

RETURN 

END 


Table  207:  LISTING  FOR  SUBROUTINE  RT 


CRT 

SUBROUTINE  RT (FX ,FXDOT , IPX ,FZ ,TX ,ED , TM ,ST ,SR,Cl ,C2, SIG, 

1  ga,tc,th,ya> 

C  VERSION  l.  AUGUST  19,  1977 

C 

C  PURPOSE  ROLL  CONTROL  THRUSTER 
C 

C — METHOD  VECTORED  THRUST  IS  A  FUNCTION  OF  SIG  IN  A  SATURATION  FUNCTION 
C  WHERE  SIG  IS  AN  INPUT  FROM  AIRCRAFT  CONTROL  SYSTEM  COMPONENT. 

C  IF  THE  ENGINE  DEPENDENCE  INDICATOR  ED  IS  l,  VECTORED  THRUST 

C  CAPABILITY  IS  DEPENDENT  ON  ENGINE  THRUST  E0=0  SETS  AVAILABLE 

C  VECTORED  THRUST  TO  A  CONSTANT. 

C — CALL  SEQUENCE 
C  *****  OUTPUTS  ***** 

C  FX  ENGINE  THRUST  REDUCTION 

C  PXOOT , IFX  THRUST  REDUCTION  RATE, INT  CONTROL 

C  FZ  VECTORED  THRUST-VERTICAL  FORCE 

C  TX  ROLL  MOMENT  DUE  TO  THRUSTER  NOT  ON  X-AXIS 

C  *****  INPUTS  ***** 

C  ED  ENGINE  OEPENOENCE  INDICATOR (cD=l.C»YES  ED=0.0,N0> 

C  TM  THRUSTER  MAXIMUM  FORCE  FOR  ENGINE  INOEP^OENT  SYSTEM 

C  ST  SLOPE  FOR  VECTORED  THRUST  AS  FUNCTION  OF  ENGINE  THRUST 

C  SR  SLOPE  OF  ENGINE  THRUST  REDUCTION  AS  FUNCTION  OF  VECTORED  T 

C  Cl  SATURATION  FUNCTION  SLOPE 

C  C2  SATURATION  SLOPE 

C  SIG  AIRCRAFT  CONTROL  SYSTEM  SIGNAL  TO  THRUSTER 

C  GA  FIRST  ORDER  LAG  GAIN 

C  TC  FIRST  ORDER  LAG  TIME  CONSTANT 

C  TH  ENGINE  THRUST 

C  YA  THRUSTER  ROLL  MOMENT  ARM 

C 

C  WRITTEN  BY  MAHINOER  WAHI  (BASED  ON  COMPONENT  *YC*> 

C 

C-— SWITCH  FOR  ENGINE  OEPENOENCE 
IF(ED.GT.0.5)  GO  TO  1 
TVA=TM 
GO  TO  2 

C— AVAILABLE  VECTORED  THRUST 
1  TVA*ST*TH 

C — SATURATION  INTERCEPT 
?.  C3-TVA/C1 
C6*-C3 
C4-C1 
C5«C2 

C  SATURATION  FUNCTION,  F2(SIG) 

CALL  SA(FZ,SIG,Cl,C2,C3,C4,C5,C6) 

IF (ED  .LT.O .5)  GO  TO  3 
C — ENGINE  THRUST  REDUCTION  FUNCTION 
FR=-SR*A8S(FZ) 

C — 1ST  OROER  LAG  ON  ENGINE  RESPONSE 

IF  ( IFX.NE.O )  FXDOT  *  ( FR*GA-FX ) /TC 
3  CONTINUE 

C— VECTORED  THRUST  MOMENTS 
TX  *  FZ*YA 
RETURN 
END 
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Table  208:  LISTING  FOR  SUBROUTINE  SA 


CSA 

SUBROUTINE  SA ( FO, FIN,C1,C2,C3,C4,C5 ,C6 > 
PURPOSE  -  TO  SIMULATE  SATURATION 


METHOO  -  SEE  CODING.  C3  AND  C6  ARE  VALUES  OF  THE  INPUT  AT  WHICH 
SATURATION  OCCURS.  C3  IS  GREATER  THAN  C6.  THE  ROUTINE 
CAN  SIMULATE  A  CHANGE  OF  SLOPE  AT  THE  ORIGIN  ICl.NE.C4) 
PROVIDED  C6  IS  LESS  THAN  ZERO.  SIMILARLY  THE  SLOPES 
IN  THE  SATURATION  REGION  (C2  AND  C5ICAN  DIFFER. 

THE  SLOPES  CAN  BE  POSITIVE  OR  NEGATIVE 


WRITTEN  BY  -  ADAM  LLOYD  LATEST  REVISION  -  NOV  75 

LIMITATIONS  -  USE  OF  ZERO  SLOPES  ( C2=0  OR  C5=0)  IN  THE  SATURATION 
REGION  SHOULD  BE  AVOIDED.  IT  IS  OESIRABLE  THAT  THE 
SLOPE  RATIOS  C1/C2  AND  C4/C5  SHOULD  NOT  EXCEED  100. 
EXCESSIVE  SLOPE  RATIOS  MAY  RESULT  IN  VERY  SLOW 
CONVERGENCE 


INPUT/OUTPUT  LIST 


FO 

OUTPUT  VARIABLE 

ANY 

OUTPUT 

VAR 

FIN 

INPUT  VARIABLE 

ANY 

INPUT 

VAR 

Cl 

SLOPE 

) 

FIRST 

ANY 

INPUT 

PA  RAM 

C2 

SATURATION  SLOPE 

) 

SLOPE. 

ANY 

INPUT 

PA  RAM 

C3 

SATURATION  INTERCEPT) 

ANY 

INPUT 

PARAM 

C4 

SLOPE 

) 

SECOND 

ANY 

INPUT 

PA  RAM 

C5 

SATURATION  SLOPE 

) 

SLOPE 

ANY 

INPUT 

PARAM 

C6 

SATURATION  INTERCEPT) 

ANY 

INPUT 

PARAM 

IF(FIN.GT.C3)GO  TO  10 
IF(FIN.LT.C6)G0  TO  20 
IF(FIN.LT.O.)GO  TO  30 
F0»C1*FIN 
GO  TO  100 

C  POSITIVE  SATURATION 
10  F0«C1*C3*C2*(PIN-C3> 

GO  TO  100 

C  NEGATIVE  SATURATION 
20  F0«C4*C6«>C5*<FIN-C6J 

GO  TO  100 

C  NEGATIVE  UNSATURATED 
30  FO«CA*FIN 
100  RETURN 
END 
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SUBROUTINE  S8 ( FO, FIN, Cl ,C2 ,C3,C4,C5 , C6 ,C7,C8 ) 

PURPOSE  -  TO  SIMULATE  SATURATION  WITH  A  OEAO  8AND 

I  4 

METHOO  -  SEE  COOING. 


C 

C  WRITTEN  BY  -  GEORGE  OULEBA  UTEST  REVISION  -  FE3  77 

C 

C  LIMITATIONS  -  Cl  MUST  Be  POSITIVE 

C  C3  MUST  BE  GREATER  THAN  Cl 

C  C5  MUST  BE  POSITIVE 

C  C7  MUST  BE  GREATER  THAN  0. 

C 

C  C2  MUST  BE  NEGATIVE 

C  C4  MUST  BE  LESS  THAN  C2 

C  C6  MUST  BE  NEGATIVE 

C  C8  MUST  BE  GREATER  THAN  0. 

C 

C 

C  INPUT/OUTPUT  LIST 
C 


c 

FO 

OUTPUT  VARIABLE 

ANY 

OUTPUT 

VAR 

c 

fin 

INPUT  VARIABLE 

ANY 

INPUT 

VAR 

c 

Cl 

POSITIVE  OEAO  BANO 

ON  FIN 

ANY 

INPUT 

VAR 

c 

C2 

NEGATIVE  OEAO  BANO 

ON  Fin 

ANY 

INPUT 

VAR 

c 

C3 

POSITIVE  SATURATION 

INTERCEPT 

ANY 

INPUT 

VAR 

c 

C4 

NEGATIVE  SATURATION 

INTERCEPT 

ANY 

INPUT 

VAR 

c 

C5 

POSITIVE  SATURATION 

LIMIT  ON  FO 

ANY 

INPUT 

VAR 

c 

C6 

NEGATIVE  SATURATION 

LIMIT  ON  FO 

ANY 

INPUT 

VAR 

c 

C7 

SATURATION  SLOPE 

ANY 

INPUT 

VAR 

c 

C8 

SATURATION  SLOPE 

ANY 

INPUT 

VAR 

C 

C 

IF(FIN.GT.C3)  GO  TO  50 

IF (FIN.LT .C4)  GO  TO  60 

SLZERO*  .001*C6/C 2 

IF (C5.LT.-C6)  SL2ER0=  .001*C5/C1 

YP*  SL2 £R0*C1 

YN=  SLZER0*C2 

SLNEG*(C6-YN)/(C4-C2) 

SLPLUS* (C5— YP )/ (C3-C1 ) 

FO  =SLZERO*FIN 

IFtFIN.LT.O.)  GO  TO  40 

IF (FIN. GT. Cl)  FOsYP+SLPLUS*(FIN-Cl> 

GO  TO  100 

40  IFIFIN.LT.C2)  PO=YN+SLNEG*( F IN- C2 ) 
GO  TO  ICO 

50  FO=C5*C7* (  FIN— C3 ) 

GO  TO  100 

60  F0»C6*C9*(PINH>) 

100  RETURN 
END 
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Table  210:  LISTING  FOR  SUBROUTINE  SEGMNT 


C SEGMNT 

SUBROUTINE  SEGMNT ( I CALL) 

C  01 VI SION  OF  THE  TRUNK  INTO  SEGMENTS 
C 

REAL  L,L1,L2,LS,LP,MASS 
C 

COMMON/SP ACE/N,M, BETA, OELX,XCXC 100 ) ,ZCX( 100), XGC 100 ) , VGC100 ) , 
1ZGC100) ,SL4(100) ,YGHC 100) ,ISEG( 100) ,ITYP< 100) ,OELTA (100),XCHI (100) 
2, ZCHI ( 100 ) »XCG 

COMMON/GEOMET/A,B,HYI,L,D,LS,LP,SH,NH,AH,NR,PHIl,PHI2,Rl,R2,Ll,L2, 

1A1,A2,X1,X2,HY 

C0MM0N/FLA6S/ICLN,I0IF,IFLAG,ISTAT,IPP,IPRV,MM,NST0P 
C0MM0N/SAVE/R1I ,R2I ,PHI1I ,PHI2I,L1I,L2I,A1I ,A2I ,0202H8I ,0XAMABI, 

1  BETA02I*  SINPHRI , D2I»SINPH2I ,A1MA2,X1I ,X2I,X12I,SI 
OATA  PI/3.141592653/ 

C 

C  IF  FIRST  CALL, COMPUTE  PARTIAL  TERMS  ANO  NUMBER  SEGMENTS 
IF(ICALL)  20,30,20 
30  RLSH=0.5*LS 

C  8ETA  IS  CURVED  SEGMENT  ARC  ANGLE 
BETA*PI/2 ./FLOAT ( N ) 

C  OE LX  IS  STRAIGHT  SEGMENT  LENGTH 
OELX=LS/FLOAT(2*M) 

8ETA2=1.33333*SIN (8ETA/2. J/BETA 

C  NUMBERING  OF  SEGMENTS  ACCORDING  TO  THEIR  POSITION  IN  THE  TRUNK 
DO  11  1*1 »NSTOP 
IF(I.LE.N)ISEG(I)*1 
IF ( I .GT .N.ANO.I.LE .N+M) I SEG ( I )*2 
IFd.GT.N+M.ANO.I  .LE.N+2*M) ISEGt 1  )*3 
I F ( I .GT .N*2*M . AND . I .LE . 2* ( N+M ) ) I SEG ( I ) *4 
IF( I .GT .2* (N+M) .AND. I .LE »3*N+2*M ) IS  EG( I )*5 

IF ( I ,GT .3*N*2*M. AND.I . LE. 3* ( N*M ) ) ISEG( I ) *6  ,  ' 

IF(I.GT.3*(N+M) .AN0.I.LE.3*N*4*M)ISEG( I)*7 
IF(I.GT.3*N*4*M.AN0.I.LE.4*(N*M) )ISEG( I)*8 
11  CONTINUE 
C 
C 

C ************************************************************************ 
C  EVALUATING  PROPERTIES  OF  SEGMENTS 

C*** ************************************************** ******************* 

C  1TYP* 1  FOR  CURVED  SEGMeiT,=0  FOR  STRAIGHT  SEGMENT 
C  XCX  ANO  ZCX  ARE  X  ANO  Z  COORDINATES  RESP.  OF  THE  SEGMENT  CENTER 
C  XCHI  ANO  ZCH2  ARE  X  ANO  Z  COORDINATES  RESP.  OF  THE  CUSHION 
C  PRESSURE  CENTER  FOR  A  SEGMENT, WHEN  IT  IS  OUT  OF  GROUND  CONTACT 
C  OELTA  IS  SEGMENT  CENTER  ANGLE  RELATIVE  TO  CG 
C 

20  CONTINUE 

02»0.5*D*R2*SIN(PHI2) 

DO  10  1*1 , NS TOP 
KGOISEG(I) 

GO  TO  (1, 2, 3, 4, 5, 6, 7, 8) ,  KGO 
C  CURVEO  SEGMENT 

C  IF  NOT  INITIAL  CALL  SKIP  CALCULATIONS 
!  IFfIC ALL) 10,100,10 

ICO  ITYP<I)«l 

0ELTA(I)«(FL0AT(I-i)*0.5)*BETA 


Table  210:  LISTING  FOR  SUBROUTINE  SEGMNT  (CONTINUED) 


COSOEL=COS (DELTA! I ) ) 
XCXd)=-(RLSH+D2I*C0S0EL> 

ZCX(I )=02I*SIN(0ELTA( I > ) 

XCHI( I>=-(RLSH+02I*8ETA2*C0S0EL) 
ZCHI(I)=ZCXd  )*BETA2 
GO  TO  10 

C  STRAIGHT  SEGMENT 

2  ITYP ( I ) =0 

XCX( I )=— RLSH+ ( FLOAT ( I-l-N  )+0«5 )*OELX 

ZC  X  ( I )  =02 

XCHim*XCXII) 

ZCHl ( I )=ZCX (I )*0»  5 
GO  TO  10 

C  STRAIGHT  SEGMENT 

3  ITYP { I )=0 

XCX(I)*IFL0AT(I-N-M-l)-*-0.5)*DELX 
ZCX(I ) *02 
XCHI ( I ) =XCX ( I ) 

ZCHI ( I ) =ZCX (I )*0 .5 
GO  TO  10 

C  CURVED  SEGMENT 

C  IF  NOT  INITIAL  CALL  SKIP  CALCULATIONS 

4  IF (ICALL) 10,400, 10 

400  ITYP(I)=l 

DELTA(I)=(FL0AT<I-N-2*M-1)+0.5)*8ETA 
SIN0EL=SIN (DELTA! I ) > 
XCXd)=RLSH«-D2I*SINDEL 
ZCX! I )»D2 I*COS (DELTA! I ) ) 

XCHI t I)=RLSH>02I*8ETA2*SINDEL 
ZCHI ( I)=ZCX(I )*BETA2 
GO  TO  10 

C  CURVED  SEGMENT 

C  IF  NOT  INITIAL  CALL  SKIP  CALCULATIONS 

5  IF ( ICALL)  10,500,10 
500  I TYP( I )=1 

DELTA  ( I)  =  <  FLOAT!  I-2*N-2*M-1 ) +C. 5  )*8STA 

COSD€L*COS (DELTA (I > ) 

XCXCI)=RLSH+02I*C0SDEL 

ZCX(I)a-D2I*SIN(0ELTA(IH 

XCHI ( I ) =RLSH+02I*COSDEL*B  ETA2 

ZCHI (I >*ZCXd >*8ETA2 

GO  TO  10 

C  STRAIGHT  SEGMENT 

6  ITYP ( I )*0 

XCX(I )=RLSH— ( FLOAT { I-3*N— 2*M— 1 )+0«5 ) *OELX 
ZCX(I )=-02 
XCHI { I )=XCX(I ) 

ZCHI(I>=ZCXd)*0.5 
GO  TO  10 

C  STRAIGHT  SEGMENT 

7  ITYP(I)aO 

XCX(I )»-< FLOAT! I-3*N-3*M-1) *0.5) *DELX 
ZC  X  { I )  =-02 
XCHI ( I )*XCX( I ) 

ZCHl(I)«ZCXd  )*0.5 
GO  TO  10 
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Table  210:  LISTING  FOR  SUBROUTINE  SEGMNT  (CONCLUDED) 


C  CURVED  SEGMENT 

C  IF  NOT  INITIAL  CALL  SKIP  CALCULATIONS 
8  I Ft  I CALL )  10*800,10 

800  ITYPtn*l 

DELTA ( I  )*  ( FLOAT! I-3*N-4*M— 1 )+0«5 )*8ETA 
SI  NOEL* SIN (DELTA! I ) ) 
XCX(I)«-<RLSH+02I*SINDEL) 

2CX ( I )*-02I*C0S (DELTA ( I ) ) 

XCHI ( I ) »-(«LSH^02I*SINDEL*8ETA2 ) 
ZCHI(I)*ZCX(I)*8ETA2 
10  CONTINUE 
RETURN 
END 
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Table  211:  LISTING  FOR  SUBROUTINE  SG 


CSG 

SUBROUTINE  SG(U,UD,IU,V,VD,IV,W,WD, IW , P, PD , IP ,Q, QD, IQ , 

1  R,RD,IR,ROL,ROLD,IROL,PIT,PITO,IPIT,YAW,YAWO,IYAW, 

2  X,XO,IX,Y,YD,IY,Z ,ZO ,IZ ,POOT,QOOT,RDOT, 

3  ROLOOT tPITDOT »YAWOOT ,XDOT »YOOT , 

4  UDOT,VOOT,WOOT,TX,TY,TZ,XXI,YYI ,ZZI,XZI,XYI,YZI> 

VERSION  5.  MAY  11  1978 

PURPOSE  SIX  DEGREE  OP  FREEDOM  NONSYMETRIC  RIGID  BODY  EQUATIONS  OF  MOT 
METHOO  EULER  ANGLES 
CALL  SEQUENCE 
*****  OUTPUTS  ***** 

LINEAR  VELOCITIES  —  BODY  AXES 

U, UD,IU  -  X  AXIS  LINEAR  VELOCITY, ACCEL , INT  CONTROL,  FT/SEC 

V, VO,IV  -  Y  AXIS  LINEAR  VELOCITY, ACCEL, INT  CONTROL,  FT/SEC 

W , WD,IW  -  Z  AXIS  LINEAR  VELOCITY, ACCEL, INT  CONTROL,  FT/SEC 

ANGULAR  VELOCITIES  —  BODY  AXES 

P»PD,IP  -  X  AXIS  ANGULAR  VELOCITY , ACCEL, INT  CONTROL,  DEG/SEC 

Q  ,QD  » IQ  -  Y  AXIS  ANGULAR  VE LOC ITY , ACCEL, INT  CONTROL,  DEG/SEC 

R,RD,IR  -  Z  AXIS  ANGULAR  VELOCITY  , ACCEL, INT  CONTROL,  OEG/SSC 

EULER  ANGLES  —  EARTH  TO  BODY  -  YAW , PI TCH ,ROLL 
ROL,ROLD, IROL  -  ROLL  ANGLE, RATE , INT  CONTROL, DEG 
P IT, PI TD , 1PIT  -  PITCH  ANGLE, RATE, INT  CONTROL,  DEG 
YAW,YAWO» I YAW  -  YAW  ANGLE, RATE, INT  CONTROL,  DEG 
POSITIONS  —  EARTH  AXES 

X  ,  XO  ,  I X  -  X  AXIS  POSITION, VELOCITY, INT  CONTROL, FT 

Y ,  YD, IY  -  Y  AXIS  POSITION, VELOCITY, INT  CONTROL, FT 

Z ,  ZD , I Z  - Z  AXIS  POSITION  ( ALT) , VELOCITY, INT  CONTOL,  FT 

ANGULAR  ACCELERATIONS  —  BODY  AXES 

PDOT  -  X  AXIS  ANGULAR  ACCELERATION,  DEG/SEC2 

QDOT  -  Y  AXIS  ANGULAR  ACCELERATION,  0EG/SEC2 

ROOT  -  Z  AXIS  ANGULAR  ACCELERATION,  0EG/SEC2 

EULER  ANGULAR  RATES  —  EARTH  TO  BOOY  AXES 
ROLDOT  -  ROLL  ANGLE  RATE , DEG/SEC2 

PITDOT  -  PITCH  ANGLE  RATE , DEG/SEC2 

YAWOOT  -  YAW  ANGLE  RATE , DEG/SEC2 

LINEAR  VELOCITIES  —  EARTH  AXES 

XOOT  -  X  AXIS  LINEAR  VELOCITY, FT/SEC 

YOOT  -  Y  AXIS  LINEAR  VELOCITY, FT/SEC 

****************  INPUTS  ******************** 

LINEAR  ACCELERATIONS  —  BODY  AXES 

UDOT  -  X  AXIS  LINEAR  ACCELERATION,  FT/SEC2 

VOOT  -  Y  AXIS  LINEAR  ACCELERATION,  FT/SEC2 

WOOT  -  Z  AXIS  LINEAR  ACCELERATION,  FT/SEC2 

MOMENTS 

TX,TY,TZ  -  X , Y , Z  AXIS  TORQUES,  FT LBS 
MOMENTS  OF  INERTIA 

XXI, YYI , ZZI  -  X , Y  ,Z  AXIS  MOMENTS  OF  INERTIA,  SLUG-FT2 
XZI,XYI,YZI  -  PRODUCT  OF  INERTIA,  SLUG-FT2 

WRITTEN  BY  J.D.  BURROUGHS  MAY  1976 

MODIc IED  BY  M.K.  WAHI  NOV  1977 

DATA  RPO, DPR  /. 017*5329, 57. 29578/ 

CP=COS(PIT*RP0> 

SP=SIN(PIT*RP0) 
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Table  211:  LISTING  FOR  SUBROUTINE  SG  (CONTINUED) 


CR=COS(ROL*RPO> 

SR=SIN(ROL*RPO) 

PI*  P*RPD 
Ql*  Q*RPO 
R 1  *  R*RPD 

C  ****************  LINEAR  VELOCITY  EQUATIONS  ************** 
IF(IU.NE.O)UO=UOOT 
IF(IV.NE.O)VD=  VOOT 
IF { IW.NE.O )WO=  MOOT 

C  ****************  ANGULAR  VELOCITY  EQUATIONS  ************* 
IFtXZI.EQ.  .99999)  XZI=0. 

IF ( XY I • EQ .  .99999)  XYI=0. 

IF(YZI.EQ.  .99999)  YZI=0. 

TXE=TX>VZI*{Q1**2-R1**2)*XZI*PI*QI-XYI*R1*P1 
I  ♦ ( YY I— ZZI)*QI*R1 

TY£=TY*XZI *  ( R  1**2— P  1**2 )  •*‘XYI*Q1*R1— YZI  *P  1*Q1 
1  ♦( ZZI-XXI)*R1*PI 

TZE=TZ+XYI*(Pl**2-Ql**2)-*-YZI*Rl*Pl-XZI*Ql*Rl 
I  ♦( XXI— YY I ) *PI*Q 1 

PETI=XXI*( YYI*ZZI-YZI**2)-XYI*( YZI*XZI*ZZI*XYI ) 

1  — XZI*t XYI*YZI*YYI*XZI) 

P0=0. 

Q0=0. 


RD=0. 

IF (IP.NE.O)  PO=OPR*(TXE*( YYI*ZZI-YZI**2)+TYE*(XYI*ZZI 
I  +YZI  *XZ I )  +TZE* ( XYI *YZI+YYI*XZ I ) ) /DETI 

IF  (IQ.NE.O  J  QD=OPR*(TXE*(XYI*ZZI*YZI*XZI)’-TYE*(XXI*ZZI 
1  -XZI**2)+TZE*(XXI*YZI^XYI*XZI) J/OETI 

IF (IR.NE.O)  RD=OPR*(TXE* ( XYI * YZI +YYI *X ZI ) +T YE* ( XXI*YZ I 
1  *XYI *XZ I ) ♦TZE* ( XX I *YYI— X  YI**2) )/DETI 

C  ****************  EULER  ANGLE  EQUATIONS  ************* 
IF(IPIT.NE.O)PITO=Q*CR-R*SR 
IF (CP .NE.O.)PSID=(Q*SR>R*CR)/CP 
IF( IYAW.NE .0)VAW0=PSID 
IF ( IROL .NE .0 ) ROLO- P+PS ID* SP 
***************  POSITION  EQUATIONS  *************** 

-  TEST  IF  X  AND  Y  (LATITUOE  AND  LONG ITUOE )  ARE  30TH  FROZEN 

SPSR=SP*SR 
SPCR=SP*CR 
CY*COS  <YAW*RPO) 

SY=SIN(YAW*RPO) 

I F ( IX .NE.O )XD=CY*CP*U+  <— S Y*CR>CY*SP  SR )  *V+ ( S Y*SR+CY*SPCR ) *W 
IF (IY .NE. 0 )YD=SY*CP*U+ ( CY*CR+SY*SPSR )*V* ( -CY*SRfSY*SPCR ) *W 
IF ( IZ .NE.O ) ZD=SP*U-CP*SR*V-CP*CR*W 
C  ****************  ANGULAR  ACCELERATIONS  (FOR  OUTPUT  PURPOSES  ONLY) 
POQT=PD 
ODOTsQD 
RDOT»RD 

C  *****  EULER  ANGLE  RATES  (FOR  OUTPUT  PURPOSES  ONLY)  ***** 

ROLOOT=ROLD 

PITOOT=PITD 


YAWOOTsYARO 

C  *****  LINEAR  VELOCITIES 
XDOT=XD 
YOOT=YO 
RETURN 


IN  EARTH  AXES  (OUTPUT  ONLY)  ***** 
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Table  212:  LINING  FOR  SUBROUTINE  SHAPE! 


CSMAPE1 

SUBROUTINE  SHAPE1 ( I CALL > 

C  INITIAL  ASSESSMENT  OF  AREAS, VOLUMES  ASSUMING 
C  NO  GROUND  CONTACT 
C 

REAL  L,L1»L2,LS,LP,MASS 
REAL  L1I.L2I 
C 

COMMON/AREAV/S , AATFN, APLAT , APLCH»APLTK »ATKAT» ATKCH, AGAP, ATK ,ACH , 

1  ATKCN* APRV»VCH, VTK»VPLM, VCHD , VFAN, ATKATC  »ATKCHC 
COMMON/SHAPE/ AGAP I ( 100) ,AGAPR ( 100) , ATK I( 100) , ATK  R( 100 ) » ATKCHI (100) 

1, ATKCHR(100) , ATKATI (100) ,ATKATR (100) ,ACHI ( 100 ) ,ACHR ( 100 ) 

2, ATKCNI (100) tATKCNRIlOO ) ,VCHI (100) ,VCMR( 100 ) » VTK I ( ICO ) »VTKR ( 100 ) 

3 , XCH( 100) , XTK( 100), ZCH( 100), ZTK( 100), PERI (100) 

COMMON/SP ACE/N , M, BETA , DELX , XCX ( 100 ) , ZCX ( 1 00 ) , XG ( 100 ) , YG ( 1 00 ) , 

1ZG (100) ,SL 4(100) ,YGH( 100),ISEG(100),ITYP( 100 ), DELTA ( 100 ) ,XCHI ( t 00 ) 
2, ZCHI ( ICO ) ,XCG 

COMMON/GEOMET /A,B,HYI,L,D,LS,LP ,SH,NH, AH,NR ,PHI 1,PHI2,R1,R2,L1,L2, 
1A1,A2,X1«X2,HY 

COMMON/STATE/PPLM,PCH,PTK,SINKRT,YCG,DPHI,DTHETA,THETAE,PHIE,SIE 
1  ,XV,VV ,QF ANX 

COMMON/SA VE/R1I ,R2I,PHI1I, PHI  21 ,L1I,L2I,A1I,A2I, 0202HBI ,OXAMABI , 

1  B ETA 02 1, S INPHRI,02It  SINPH2I ,A1MA2,X1I,X2I,X12I,SI 
COMMON/FLAGS/ICLN,IDIF,IFLAG,ISTAT,IP«»,IPRV,MM,NSTOP 
C 

C  COMPUTE  GEOMETRY  TERMS 
SINPH2*SIN(PHI2) 

SINPHR=SINPH2*R2 
D2*0/2»>SINPHR 
002=0ELX*02 
BDD2=BETA *02*02*0. 5 
X»8* ( A-S I NPHR)/( B+HY— R1 ) 

C  COMPUTE  AREAS  OF  TRUNK  SECTORS 
A1»PHI2/2.0*R2**2 
A2*(R2-HY)/2.C*SINPHR 
A3»PHI1/2.0*R 1**2 
A4«X*S/2.0 

A5»(A-SINPHR-X)/2.0*(HY-Ri) 

X1*SINPHR— 4.0* ( SIN ( PH 12/2 .0 ) )**2*R2/ (3 .0*PHI2 ) 

X2»0.66667*SINPHR 

X3»SINPHR*4.C* ( SIN( PH  11/2.0) )**2*Rl/( 3.0*PHI 1 ) 

X4«A-0.333333*X 

X5*SINPHR+0.333333*( A— SINPHR— X ) 

AA»Al*A3*A5— A2— A4 
AX«A1*X1-A2*X2*A3*X3-A4*X4*A5*X5 
IF ( ICALL.GT.O )  GO  TO  20 

C  SAVE  TRUNK  GEOMETRY  TERMS  FOR  ENO  TRUNK  CALCULATIONS 
S»2.0*LS+6 .23318*02 
R1 I*R1 
R21-R2 
PHI1I»PHH 
PHI2I«PHI2 
LII*L1 
L2I-L2 

Air-Ai 
A2 I*A2 
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Table  212:  LISTING  FOR  SUBROUTINE  SHAPE!  (CONCLUDED) 


SINPH2I*SINPH2 
SINPWRI»S INPHR 
Xll-Xl 
X2I*X2 

AlMA2I*Al-A2 
021*02 
sr*s 

BETA02I*BETA*02 
X12*(Xl*Al— X2*A21 /A1MA2I 
OX AMA8I*(0*0.5+X12 >*A1MA2I*8ETA 
0202H6I*02 *02*0. 5*9 ETA 
00?I«0ELX*D2 
B002I *BETA *02 *02*0 . 5 
CONTINUE 

C  COMPUTE  TRUNK  SEGMENT  AREA, VOLUME* CUSH I ON  AREA 
00  10  1*1 ,NSTOP 
IF  ( II YP (t )  .EQ.11G0  TO  11 
C  STRAIGHT  PART  OF  TRUNK 
1?  ATKI<I1*AA 

VTKI(I)*0ELX*ATKI (I) 

ACHI ( I )*002 
GO  TO  10 

C  CURVED  PART  OF  TRUNK 
11  IF(ICALL.GT.O>  GO  TO  10 

ATKI(I)*AA 
XE*AX/ATKI (I) 

VTKI  CD  *8ETA*  ( 0/2  .  +  XE  )  *A  TKI  ( I ) 
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Table  213:  LISTING  FOR  SUBROUTINE  SHAPE2 


CSWAPE2 

SUBROUTINE  SHAPE2 

C  CALCULATION  OF  AREAS  AND  VOLUMES  ASSOCIATED  WITH  ACLS*KNOWING  ITS 
C  ORIENTATION 
C 

REAL  L,H,L2,LS,LP,MASS 
REAL  L1I.L2I 
C 

COMMON/ESTNO/GEC,DAMPC,U,OECCL»HOC,PHA,CENFX,CENFZ,ZEPRV,ZPRV 

1, QP2, SLOPS 

COMMON/ARE AV/StAATFNt APLAT, APLCH,APLTK,ATKAT,ATKCH,AGAP,ATK,ACH, 
l  ATKCN,APRV,VCH,VTK,VPLM,VCHO,VFAN,ATKATC .ATKCHC 
COMMON/SH APE/AGAP I { 100 ) , AGAPR ( 100 ) ,  ATK I ( 1 00 ) , A  TK  R ( 100  > , ATKCHI (1001 
1 » ATKCHR (100) » ATK AT I ( 100 ) ,  ATKATR  ( 100 ) , ACHI ( 100 ) ,  ACHR (100) 

2 » ATKCNI ( 100 ) , ATKCNR(IOO) ,VCHI ( 100 ) , VCHR( 1 00 ) , VTK I ( 100) , VTKR ( 100 ) 
3»XCH( 1001 »  XTK( 100 ) »  ZCH( 100 ) ,ZTK( 100) i PERI ( 100 ) 

COMMON/$PACS/N,M, BETA, DELX,XCX( 100), ZCX( 100), XG( 100 ) , YG( 100 ) , 

1ZG  < 100) ,SL4( 1 00 ) ,YGH( 100) ,ISEG( 100) , ITYP( 100) , DELTA (100), XCHI (100) 

2,  ZCHI ( ICO ) ,XCG 

COMMON/GEOMET /A,B,HYI,L,0,LS,LP*SH,NH,AH,NR,PHI1,PHI2,R1,R2,L1,L2, 
1A1,A2,X1,X2,HY 

COMMON/ST ATS/PPLM,PCH,PTK,SINKRT,YCG,OPHI,DTHETA,THETAE,PHIE, SI E 
l  , XV, VV ,QFANX 

C0MM0N/SAVE/R1I ,R2I , PH I II , PHI 2 I ,L1I,L2I,A1I,A2I, D2D2HBI »DXAMABI , 

1  BETAD2I,SINPHRI,02I,SINPH2I,A1MA2,X1I ,X2I,X12I,SI 
COMMON/FLAGS/ 1CLN , I DIF , IFLAG , 1ST AT, I PP , IPRV ,MM ,NSTOP 

C- 

DIMENS  ION  ATKRB ( 100 ) ,  VTKRA ( 100 ) , VTKRB ( 100 ) 

C 

DATA  PI/3.141592653/ 

C 

C  CALL  SHAPE 1  TO  GET  TRUNK  SIDE  SHAPES 
CALL  SHAPEl(l) 

C  COMPUTE  PARTIAL  TERMS 
SINPH2«SIN(PHI2) 

SINPHR»SINPH2*R2 
D2*D*0. 5+SINPHR 
D2ISQ*02I*02I 
AIMA2-A1-A2 

BETA2«l.33333*S IN ( BETA/2. )/BETA 

BETA02«BETA*02 

RLSH«LS*0.50 

AOS«AH*OELX/SI 

A80SI«AH*8ETA*02I/SI 

RNN«FLOAT(NR*NH) 

£***************»****************************************** *************** 

C  PART  1  I  VALUE  OF  VCH  ANO  AGAP 

C  ******'**** ******************** *******  ******  *****  ********  **********  ******* 
DO  17  t*l »NSTOP 

C  TEST  FOR  TRtXK  SEGMENT,  WHETHER  CURVED  OR  STRAI ~HT 
IF(ITYPd)  .EQ.DGO  TO  11 
C 

C  STRAIGHT  PART  OF  TRUNK 
C 

C  CALCULATE  CUSHION  SEGMENT  INITIAL  VOLUME 
13  VCHI ( I )■( YGH( I )*02-A 1MA2 ) *0ELX 
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Table  213:  LISTING  FOR  SUBROUTINE  SHAPE2  (CONTINUED) 


C  CALCULATE  SEGMENT  GAP  AREA 

AG API ( I )«( YGH( I )— HY )*OELX 
GO  TO  10 
C 

C  CURVED  PART  OF  TRUNK 

C 

11  VCHI  ( I )»VGH(I )*0202HBI-DXAMA8I 

AG API  1 1>» 1 YGH ( I 1-HYI > *BETA02 1 

C +mm«***m***9*+**************+*+*****+++**********************************: 
C  PART  2  R  VALUE  CALCULATIONS 

**********»**********************»****  *************************  *****-- 

C 

C  TEST  FOR  GROUND  CONTACT  AT  EACH  SEGMENT 
10  CONTINUE 

C  FORCE  VOLUME  AREAS  .GE .0 

VCHI <I) »AMAX1< 0.0, VCHI (I! ) 

AGAPI(I)*AMAX1(0.0,AGAPI (I)) 

C  TEST  SEGMENT  FOR  CONTACT 

IFC ITYP (I ) .EQ.l . AND .YGH ( I ) .LE *HYI )  GO  TO  14 
IF (ITYP(I ) .EQ.O.AND.YGHt I l.LE.HY)  GO  TO  23 
C 

C  NO  GROUND  CONTACT 

C  SET  CONTACT  AND  REMOVE  TERMS  TO  ZERO 
ATKR(  I  )=0 .0 
ACHR(I)*0.0 
VTKR(I)»0.0 
VCHR ( I )=0 .0 
AG APR ( I )=0.0 
ATKCNI (I) *0.0 
ATKCNR ( I ) *0.0 
ATKCHR ( I) =0.0 
ATKATR(I)*0.0 
PERI f I )*0.0 

C  SET  DISTANCES  X,Z  TO  FREE  TRUNK  VALUES 
XCH(!)«XCHI(I) 

ZCH(I)«ZCHI(I) 

ZTK(I1*ZCH(I) 

XTKtI)*XCH(I) 

C  COMPUTE  TRUNK-CUSHION-ATMOSPHERE  BLEED  AREAS 
IFCITYPdH  16,16,18 
16  CONTINUE 

C  NO  CONTACT  STRAIGHT  SECTIONS 

ATKCHU  !>*FLOAT(  IF  IX(  (L2-LP  1/SH+l.O )  *NH)*ADS 
ATKATI C I ) »RNN*ADS-ATKCHl ( I ) 

30  TO  17 
18  CONTINUE 

C  NO  CONTACT  CURVED  SECTIONS 

ATKCHI(I1*FLOAT{IFIX((L2I-LP)/SH>1.0)*NH)*A8DSI 
ATKATI (I)*RNN*ABOST-ATKCHI (I) 

GO  TO  17 

C*m*4*m**m**m******************************* ****************************** 

C 

C  TRUNK  C-ROUNO  CONTACT 
C 

C  CURVED  PART  OF  TRUNK 

C  CALCULATE  OEFQRMATION  ANGLES  FOR  SEGMENT 
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14  PHI3*ACOS(  (R2I-(HYI-YGH(I)  )  J/R2I ) 

PrtI4*ACO$( (RII-IHYI-YGH(I) ) )/RlI > 

SIN°H3*SIN (PHI3) 

SINPH4»SIM(PHI4) 

C  COMPUTE  "ARTIAL  TERMS 

OR  SP*  C  021 -R2I*S INPH3) 

OR  SP2  *ORS  P  *0R  S  P 
COSOEL-COS ( 06 LTA (I) ) 

SIN0EL*SIN (DELTA! I ) ) 

BE0RSN«BETA2*0RSP*SIN0EL 
V9SPRCS*96TA2*0RSP*C0SDEL 
C  COMPUTE  REMOVAL  SECTORS 
A6«R2I*R2I*PHI3*0.5 
A7»(R2I-HYI*YGH(I> ) *0 ,5*R2I*S INPH3 
A6MA7»AA-A7 
A8»R1I*R1I*PHI4*0.5 
A9»(R1I-MYI*YGH(I) >*0.5*RII*S INPH4 
A10*A9 
A11*A8 

C  COMPUTE  SECTOR  CSNTROIOS 

X6*S1NPHR I— 1.33 3333 *(  S IN ( PH 1 3*0. 5 1**2  > *R2I/PHI3 
X7»SINPHRI-0.333333*R2I*SINPH3 

X8*SINPHR I«-l. 3333333*  (SIN  (PHI4*0. 5  )**2)*R1I/PHI4 

X9»SINPHRI*0.3333333*R1I*$INPH4 

XI C*X9 

Xll»X8 

PII2*PI*0.5 

IF (PHI4.LT .PI 12)  GO  TO  50 

C  IF  PHI 4  GREATER  THAN  90  DEGREES,  SET  TO  90  DEGREES 
PHI4*PII2 
SINPH4*SIN(PHI4) 

A10»(R1I-HYI«-YGH(I )  )*R1I 
XI 0*S INPHRI*0  »5*R II 
A11»RII*R1I*PHI4*0.5 

X11»SINPHR«-1.333333*(SIN(PHI4*0.5)**2)*R1I/PHI4 
50  CONTINUE 

C  COMPUTE  TRUNK  AREA  CHANGE 
ATKR ( I ) »A  6MA7* A8-A9 
ATKR8(I)«A6MA74A11-A10 
XER*( A6*X6-A7*X7*A8*X8-A9*X9)/ATKR ( I ) 

XERB*(  A6*X6-A  T*X7*A U*X11-A10*X1 0  )/ATKRB(  I ) 

C  COMPUTE  TRUNK  VOLUME  CHANGE 

VTKRA  ( I  >«  BETA  *  ( 0*0 . 5*X  ER )  *ATKR  ( I ) 

VTKRB ( I )*ATKRB( I )*9ETA*(0*0.5*XER6) 

VTKR( I )»2 • *VTKRA( I )— V7XRB ( I ) 

XC*«(A6*X5-A7*X7)/A6MA7 
C  COMPUTE  TRUNK  EXIT  AREAS 

ATKCWI(I)«FL3AT(IFIX( (L2I-LP-R2I*PHI3)/SH*1.0)*NH)*AB0SI 
ATKATI(I)»FLOAT(IeIX(  (LlI-L*LP*PLCAT(NR-l)*SH-RlI*PHt4>/SH«'1.0)*NH 
I )* ABOSI 

ATKCHR ( I ) *FLOAT( IF 1X( ( L2I-LP ) /SH*1 .0)*NH )*A9DSI-ATKCHI ( I > 

ATKATR ( I ) *RNN*AeOS I-ATKCHI ( I l-ATKATI ( I l-ATKCHR ( I  ) 

C  COMPUTE  CONTACT  PERIMETER 

P6Rim*86TA*(0RSP*D2I*RlI*SINPH4) 

C  COMPUTE  TRUNK  CONTACT  AREA 

ATKCNI ( I»«B6TA*C.3*(P2IS0-0RSP2 ) 


Table  213:  LISTING  FOR  SUBROUTINE  SHAPE2  (CONTINUED) 


ATKCNR(I)«BETA*0.5*((02I«-R1I*SINPH4)**2-02IS0» 

AC HR ( I ) *ATKCNI ( I ) 

C  COMPUTE  CUSHION  VOLUME  CHANGE 

VCHRtI>*-BETA*A6MA7*(D*0.5«’XCR> 

C  COMPUTE  GAP  AREA  CHANGE 
AGAPR II )«AGAPI (I) 

C  01 STANCE  OF  SEGMENT  PRESSURE  CENTERS  FROM  CUSHION  CENTER 
29  RR«02I*RII*SINPH4 
RR 1*021  -R  2 1 *S I NPH  3 

XX2xl.333333*SIN(BETA*0.5)/8ETA*(RR**3-RRl**3)/(RR*RR-RRl*RRl> 

KGO«ISEG(I) 

GO  TO  ( 61 1 23»23t64f 6S  »23t 23* 68 ) » KGO 
61  XCH( I )»-RLSH-BEDRCS 

ZCHI I )*8EDRSN 
XTKC I )*-RLSH-XX2*C0S0EL 
ZTK(I )«XX2*SIN0EL 
GO  TO  17 

64  XCH( I )*RLSH+8EDRSN 
ZCH(I)»8EDRCS 

XTKI  I J*RLSH+XX2*$ INDEL 
ZTK(I»«XX2*C0S0EL 
GO  TO  17 

65  XCHI I )*RLSH+BEORCS 
ZCHII)»- 8E0RSN 

XTK( I )*RLSH+XX2*C0S0EL 
ZTK(n*-XX2*SlN0EL 
GO  TO  17 

68  XCHC I ) x-RLSH— BEDRSN 

ZCH(I)*-8E0RCS 
XTK(I)x-rlSH-XX2*SIN06L 
ZTK< I )*— XX2XC0S0EL 
GO  TO  17 

C*** ************************************************** ******************** 

c 

C  TRUNK  GROUNO  CONTACT 
C  STRAIGHT  PART  OF  TRUNK 
23  CONTINUE 

C  COMPUTE  DEFORMATION  ANGLES 

RHV»( IR2-(HY-YGH( I ) ))/R2) 

PH 13“ AC OS ( AMAX1 ( — l .Ot AMIN1 ( 1 «0»RHY ) ) ) 

RHYx( (  Rl-( HY-YGHC I ) ) )/Rl ) 

PHI4x*C0S(AMAXl  (-l.O.AMINiU.OtRHY)  >  ) 

C  00  TRANSCENOENTALS  ONLY  ONCE 
SINPH3«SIN<PHI3) 

SINPH4«SIN(PHI4) 

C  COMPUTE  PARTIAL  TERMS 

OR  SP* ( 02— R  2*S INPH3 ) 

ORSP2»ORSP*ORSP 
C0S0EL»C0S (DELTA (I) ) 

SINOEL*SIN(OELTA(  I ) ) 

3E0RSN*8ETA2*0RSP*SIN0EL 
8E0RCSxBETA2*0RSP*C0S0EL 
C  COMPUTE  REMOVAL  SECTORS 
A6»R2*R2«PHI3*0 .5 
A7x(R2-HY^YGH(I) )*0.5*R2*SINPH3 
A6MA7*A6— A7 
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A8»R1*RI*PHI4*0.5 
A9»(Rl-HY*YGH( I) )*0«5*Rl*SINPH4 
A10-A9 
AU«A» 

C  COMPUTE  SECTOR  CENTROIDS 

X6«SINPHR-1 .333333*1 S IN 1 PHI3*0 .51**2 )*R2/PHI3 
X7»SINPHR-0.333333*R2*SINPH3 

X8«SINPHR«- 1.3333333*1  SlNl  PHI4*0. 5 1**2)  *R1/PHI4 

X9»SINPHR>0.3333333*R1*SINPH4 

XlO»X9 

X11«X8 

PII2»PI*0.5 

IPIPHI4.LT. PII2)  GO  TO  70 

C  IF  PHI4  IS  GREATER  THAN  90  OEGREESt  SET  TO  90  OEGREES 
PHI4-PII2 
SINPH4*SIN(PHI4) 

A10«1R1-HY*YGW1I))*R1 
X10»SINPHR*0.5*R1 
A I  l«R  1*R  I  *PHI  4*0 . 5 

XI 1»SINPHR*1 . 3333333* ( SIN (PHI4*0. 5) **2)*R1/PHI4 
70  CONTINUE 
C  COMPUTE  TRUNK  AREA  CHANGE 
ATKR1 I )«A6MA7>A8-A9 
ATKR8 ( I >«A6MA7*AU-A10 
VTXRAl I )*ATKR 1 I >*OELX 
VTKRB ( I >« ATKRB  C 1 1 *OELX 
VTKR( I 1 »2 ,*VTKRA l I 1-VTKR8 ( I 1 
C  COMPUTE  CUSHION  VOLUME  CHANGE 
VC HR ( I ) *— DELX*A6MA7 
C  COMPUTE  TRUNK  EXIT  AREAS 

ATKATI  1 I)  *FLOAT(  IF  IXI  (LI-L^LP4-FL0AT(NR-l)*SH-Rl*PHI4)/SH+I.0)*NH) 
1*A0S 

A  TKCH II I  >  «FL  0  AT  1 1 F  IX 1 1 L  2-  LP  -R  2*PH  13 )  /S  H+ 1 .  )  *NH  1  *  AOS 
ATKCHRt I)«FLOAT( IFIX( (L2-LP 1/SH+l  .01*NH)*ADS-ATKCHI (I) 

ATKATR( I l»RNN*AOS-ATKCHI ( I l-ATKATI ( I l-ATKCHRI I ) 

C  COMPUTE  TRUNK  CONTACT  AREA 

ATKCNI ( II *R2*SINPH3*0ELX 
ATKCNR I I ) »R1*SINPH4*0ELX 
C  COMPUTE  TRUNK  CONTACT  PERIMETER 
C  COMPUTE  TRUNK  VOLUME  CHANGE 
PERI(I)>2.*0ELX 
C  COMPUTE  GAP  AREA  CHANGE 
ACHRI I)*ATKCNI (I) 

AGAPRm«AGAPX(I> 

KG 0*1 S EG C 1 1 

C  COMPUTE  SEGMENT  CONTACT  CENTER  OF  PRESSURE  FOR  CUSHION  AND  TRUNK 
GO  TO  (17«62t62.17f I7,66»66t 17) , KGO 
42  XCH(I)»XC xm 

ZCH1I )*0. 5*102-R2*SINPH3) 

XTK{ I  )*XCX  (1 1 

ZTKII)»02«-0.5*<R1*SINPH4-R2*SINPH3) 

GO  TO  17 

46  xch m-xcxm 

ZCH1I)»-0.5*102-R2*$INPH3) 

XTKCI)«XCXm 

2TK (!)*-»  02*0.5*(R1*SINPH4-R2*SINPH3 ) 1 
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Table  213:  LISTING  FOR  SUBROUTINE  SHAPE2  (CONCLUDED) 


17  CONTINUE 

C*********»********************************* ********** ******************** 

C  PART  3  SUMMATION  OF  SEGMENT  AREAS  VOLUMES 

C*************** *********************************************** *********** 

SET  TOTAL  AREA  ANO  VOLUMES  TO  ZERO 
ATKCN*0.0 
VTK-0.0 
ACH*0.0 
ATKCH*0.0 
ATKAT*0.0 
VCH*0.0 
AGAP«0.0 
ATKATC»0. 

ATKCHC*0. 

C  LOOP  ON  SEGMENTS  TO  FIND  TOTALS  OF  AREAS  ANO  VOLUMES. 

00  30  1*1, NS TOP 

VTK*VTK*  IVTKIII  )-VTKR(I>) 

ACH=ACH*  (ACHI(I)-ACHR(I)) 

ATKCH*ATKCH*ATKCHI II) 

ATKAT*ATKAT*ATKATI ( I ) 

VCH-VCH*  I VCHI ( I )— VCHR II)) 

ATKCN*ATKCN*ATKCNI 1 1 )*ATKCNR( I ) 

AGAP*AGAP*  (AGAPI 1 1 )— AGAPRII ) ) 

ATKATC*ATKATC>ATKATR( I ) 

ATKCHC*ATKCHC*ATKCHRf I) 

30  CONTINUE 

AGAP*AMAX1 (AGAP,0.0) 

VTK*AMAX1 (0»0»VTK ) 

VCH*AMAX1 ( 0.0, (VCH+VCHO) ) 

VCH*AMAX1 (O.O.VCH) 

A TKCHsAMAX 1 ( 0 .000 , ATKCH ) 

ATKAT»AMAX1 lO.OOOt ATKAT) 

ACH*AMAX1 1  0. 0» ACM) 

ATKATC*AMAX1(0.0,ATKATC) 

ATKCHC»AMAXllO.Of ATKCHC) 

RETURN 

5N0 


560 


Table  214:  LISTING  FOR  SUBROUTINE  SHOP 


CSHCP 


FUNCTION  SHCPIT  »SH ) 


C  PURPOSE  -  TO  CALCULATE  SPECIFIC  HEAT  OF  HOIST  AIR  (AIR  ♦  VAPOR) 


C  METHOD 


SPECIFIC  HEAT  OF  DRY  AIR  FROM  KEENAN  AND  KAYE*  USING 
POLYNOMIAL  APPROXIMATIONS 

SPECIFIC  HEAT  OF  VAPOR  FROM  KEENAN  ANO  KEYES,  TAKEN  AT 
0.2  PSI  PARTIAL  PRESSURE 


C  WRITTEN  BY 


AOAM  LLOYO 


LATEST  REVISION 


C  LIMITATIONS 


TEMPERATURE  300-1600  OEGR 


C  INPUT/OUTPUT  LIST 


SPECIFIC  HEAT  OF  MOIST  AIR 

TEMPERATURE 

SPECIFIC  HUM 10 I TY 


BTU/LB  OEGR 

OEGR 

LB/LB 


OUTPUT 

INPUT 

INPUT 


COMMON/ERMESS/IFATAL,IERR 
COMMON/CI O/IREAO, IWRITE , IOIAG 
XsT/1000. 

X*AMAX1(AMIN1 (X, 1.6), 0.4) 

CP=(  (-.014930 56*Xf. 05767857 )«X-. 042045 63) *X*. 2478786 
SHCP«  (CP  ♦  .46*SH )/{ 1 •♦SH ) 

TEST  IF  AIR  TEMPERATURES  ARE  WITHIN  VALID  RANGE 
IF(T.GE.300.AN0.T.LE. 1600 • )G0  TO  100 
TEST  FOR  DIAGNOSTIC  PRINT  OUT 
IF ( IERR .NE .1) GO  TO  100 
WR ITE ( IWR ITS, 9999) 

9999  FORMAT( 10X » 32HN0N  FATAL  ERROR  CALLED  FROM  SHCP/ 

1  10X,34HTEMPERATURE  NOT  WITHIN  VALID  RANGE) 

100  RETURN 
ENO 
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Table  215:  LISTING  FOR  SUBROUTINE  SIDEFS 


CSIDEFS 

SUBROUTINE  SIDEFS(Y,MfK,R.t>; 


VERSION  2  REVISED  MARCH  1979 

WRITTEN  9Y  -  GS  OULEBA 

PURPOSE  -  TO  COMPUTE  THE  SHAPE  PARAMETERS  FOR  AN  ELASTIC 
TRUNK  SIDE  ELEMENT  IN  THE  FREE  CONFIGURATION. 

METHOD  -  MERIDIAN  SHAPE  IS  ASSUMED  TO  SE  TWO  CONNECTED 
CIRCULAR  ARCS! INNER  AND  OUTER).  MERIDIAN  LOAD 
IS  COMPUTED  USING  MEMBRANE  THEORY  ANO 
ASSUMED  SHAPE.  MERIDIAN  STRAIN  IS  CALCULATED 
FROM  LOAD /DEFLECT ION  CURVE  ANO  MUST  BE  COMPATIBLE 
WITH  ASSUMED  SHAPE  TO  BE  A  VALID  SOLUTION. 

NOMENCLATURE 


Rl 

RAOIUS  OF  OUTER 

ARC 

PHI 

SWEPT  ANGLE  OF 

OUTER 

ARC 

R2 

RAOIUS  OF  INNER 

ARC 

PH  2 

SWEPT  ANGLE  OF 

OUTER 

ARC 

NP 

MERIDIAN  LOAD 

EP 

MERIDIAN  STRAIN 

COMMON/ELA ST/ L2 ,NPH »DUM ( 7) »EP»D 
REAL  L1,L2,L10,L20,NP,NT,NEP 
DIMENSION  Y(  1 )  ,R( 1 ) ,P ( 1) 

OATA  PI2/&. 283185/,  ThC/6./ 

R1*Y( 1 ) 

PH1*Y(2> 

PH2=Y(3> 

R2*RI*P»6)/P( 5) 

Sl*SIN( PHI ) 

Cl *COS  t  PHI ) 

S2=SIN( PH2 ) 

C2*COSfPH2) 

XL1*0. 

IF(PHl.GT.THC)  XL l=.5/( THC—P12) * (PH1-P 12 )*{ PHI— P 12 ) 
L1*R1*<  PH  1*10 00. *X LI ) 

L2=R2*PH2 

CALCULATE  MERIOIAN  LOAD  ANO  STRAIN 
NP=P(6)*R1 
NT  »NP*P (9 ) 

NEP*NP-P(9 >*NT 

EP*T8LU1(NEP,P(12) ,PI NPH+12 ) , 1 ,NPH> 

COMPUTE  OEFLATSD  LENGTHS  FOR  LI  AND  L2 
LLO*( 1 • +P ( 7 ) )*Ll/( I.+EP) 

L20*( l.+P(7) )*L2/( i.+EP) 
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Table  215:  LISTING  FOR  SUBROUTINE  SIOEFS  (CONCLUDED) 


COMPUTE  RESIDUALS  (*0.  FOR  SOLUTION) 
R(l)»  P(4)— L10-L20 
R<2>»  P(2 )-Rl*Sl-R2*$2 
R(3>*  P(3)-ftl*(l.-Cl)-*R2*(l.-C2) 

PI  U)«R2*U.-C2> 

RETURN 

ENO 
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Table  216:  LISTING  FOR  SUBROUTINE  SIDELS 


CSIOELS 

SUBROUTINE  S IDELS ( Y,M ,K , R,P ) 


VERSION  2  REVISED  MARCH  1979 

WRITTEN  8 Y  -  GS  OULGBA 

PURPOSE  -  TO  COMPUTE  THE  SHAPE  PARAMETERS  FOR  AN  ELASTIC 
TRUNK  SIDE  ELEMENT  IN  THE  LOADED  CONFIGURATION. 

METHOD  -  MERIDIAN  SHAPE  IS  ASSUMED  TO  3E  TWO  CONNECTED 
CIRCULAR  ARCS( INNER  AND  OUTER).  MERIDIAN  LOAD 
IS  COMPUTED  USING  MEMBRANE  THEORY  AND 
ASSUMED  SHAPE.  MERIDIAN  STRAIN  IS  CALCULATED 
FROM  LOAD/OE FLECTION  CURVE  AND  MUST  BE  COMPATI 3L 
WITH  ASSUMED  SHAPE  TO  BE  A  VALID  SOLUTION. 

NOMENCLATURE 


R1 

RADIUS  OF  OUTER  ARC 

PHI 

SWEPT  ANGLE  OF  OUTER 

ARC 

R2 

RADIUS  OF  INNER  ARC 

PH2 

SWEPT  ANGLE  OF  OUTER 

ARC 

L3 

MERIDIAN  LENGTH  IN  CONTACT  WITH  GROUND 

NP 

MERIDIAN  LOAD 

EP 

MERIDIAN  STRAIN 

COMMON/ELAST/L2,NPH,DUM(7),EP,D 
REAL  L1,L2,L3,L10,L20,L30,NP,NT,NEP 
DIMENSION  Y(1),R(1),P(1) 

DATA  PI2/6. 283135/,  THC/6 ./ 

Rl=Y(l) 

PH1*Y (2 ) 

PH2=Y ( 3  > 

R2=R1*P(6)/P(5) 

L3=Y(4) 

S1=SIN( PHI ) 

Cl =COS ( PHI ) 

S2*SIN(PH2) 

C2=COS(PH2) 

XL1=0. 

I F ( PH  1 • GT • THC )  XL1  =  .5/CTHC-PI2)*(PH1-PI2)*(PH1-PI2) 
L1=R1*(PH1>1C00.*XL1) 

L2=R2*PH2 

COMPUTE  MERIOIAN  LOAD  AND  STRAIN 
NP*P(6)*R1 
NT aP  (  9  )  *NP 
NEP»NP-P«9  )*NT 

EP*T3LU1INEP,P(12)  ,P( 12«-NPH),  1,N  PH) 

COMPUTE  DEFLATED  LENGTHS  FOR  L1,L2  AND  L3 

564 
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Table  217:  LISTING  FOR  SUBROUTINE  STATIC 


CSTATIC 

SUBROUTINE  STATIC ( ICASE ) 

STATIC  CHARACTERISTICS  SUBROUTINE 

REAL  L,L1,L2,LS,LP,MASS 
C 

C0MM0N/GE0MET/A,8,HYI*L,D,LS«LP,SH,NH, AH,NR,PHI1,PHI2,RI*R2,L1,L2 
IAI,A2,X1,X2,HY 

C0MM0N/C0MPRS/AL0,AL1,AL2,AL3,AL4,G0,GI,G2,G3,G4,QP1 
COMMON/LOAOS/FORCNS (3,10) ,CCS (3,10) , YCGS( 3, 10 ) ,PHIS( 3 ,10> , AGAPS ( 3 
110 ) ,PCHS(3  « 10 ) ,QFANS( 3 ,10),PFANS(3,10) ,PPLMS(3»10> ,THIS (3,10) , 
IFFS(3,10) , TORXS (3 , 10), TOR ZS (3, 10) »PTKS (3,10) 
COMMON/STATIC/YSTRT,YSTOP,PSTRT,PHSTP,TSTRT,TSTOP 

i,phiyc,theyc,ycphi,ycthe 

common/state/pplm,pch,ptk,sinkrt,ycg,ophi,dth6ta,thetae,phi6,sie 

1  ,  XV,  W,OFANX 

common/ areav/s,aatfn,aplat,aplch,apltk,atkat,atkch,agap,atk,ach, 

1  ATKCN,APRV,VCH,VTK,VPLM,VCHO,VFAN,ATKATC,ATKCHC 

common/vehcl/mass,aix,aiz,aixy,aiyz,aizx,cc,gg,ff,aifan 

COMMON/OYNAMIC/TIME,FTIME,OTIME,IQ,NQ,DVCHfOVTK, VELX,DERY( 13) 

1 ,OVCHP 

COMMON/FORTQ/FCP,FTP,FORCT,FOF,FORCEY,TCPX,TTPX,TORQTX,TOFX, 
1TOROUEX,TCPZ,TTPZ,TORQTZ,TOFZ,TORFZ,TOROUEZ 
COMMON/COEFFS/CPA,CAF,CPC,CPT,CTC,CGAP,CTA,CVENT,CKK 
COMMON/FLUIO/QFAN, QPLAT »QPLCH,QPLTK ,QTKAT *QTKCH, QCHAT ,PATFN,PFAN, 
l  PAT,TEMPAT,RHO,QVENT 

COMMON/FLAGS/ICLN , IOIF, IFLAG, ISTAT, IPP,IPRV  »MM ,NSTOP 
COMMON/PR V/DPRV,PPLMB,XA,AKPRV,AMPRV,SPRV,NPRV, A VENT 
C 

DIMENSION  ZCC(3,3,3),ZWT(3,3,3) ,ZFF(3,3,3) 

OIMENSION  AGAPP(IO) 

DIMENSION  PFSAV(IO) 

OIMENSION  HYTESTf  3  ),HYPRES (3) ,HYERROR (3 ) 

C 

C  THIS  SUBROUTINE  CONSISTS  OF  FOUR  NESTEO  ITERATION  LOOPS 
C 

C... .ITERATION  1 

C  VALUES  OF  YCG»PHIE  ANO  THETAE  ARE  ITERATEO. 

C...  .ITERATION  2 

C  VALUE  OF  HY  IS  ITERATED  SO  THAT  THE  ASSUMED  HY  MATCHES  THE  VALUE 
C  REQUIRED  BY  FUNCTIOAL  RELATIONSHIP  HY/HYI *F ( PCH/ PTK ) 

C.... ITERATION  3 

C  VALUE  OF  PFAN  IS  ITERATED  SO  THAT  THE  VALUE  OF  AGAP  REQUIRED 

C  BY  PRESSURE  FLOW  RELATIONS  MATCH  AGAP  GENERATED  BY  YCG  ,PHIE, 

C  THETAE, ANO  HY 
C.... ITERATION  4 

C  VALUE  OF  PCH  IS  ITERATEO  SO  THAT  THE  ASSUMED  VALUE 
C  MATCHES  THE  VALUE  REQUIRED  BY  THE  PRESSURE  RELATIONSHIP 
C  ALL  FOUR  ITERATIONS  INVOLVE  CHOOSING  INITIAL  VALUES, 

C  TESTING  The  GENERATED  VARIABLE  ANO  SELECTING  NEXT  ITERATIVE  VALUES 
C  THE  USER  MAY  HAVE  TO  CHANGE  NITE  OR  XTOL 
C  IF  SO  INDICATED  3Y  ERROR  MESSAGE 
C  THE  SUBROUTINE  USES  THESE  ITERATIONS  IN  TWO  WAYS 
C  (1)  GENERATE  STATIC  LOAO  MAP 

C  IN  THIS  PART  THE  VALUES  OF  YCG,  PHIE  AND  THETAE  IN  ITERATIONS 

C  ARE  USER  SPECIFIED 
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C  ( 2 >  OBTAIN  STATIC  EQUILIBRIUM  CONDITIONS 

C  IN  THIS  PART  THE  VALUES  OF  YCG,  PHIE  ANO  THETAS  ARE  ITERATED, 

C  ACCOROING  TO  A  CONVERGING  ALGORITHM,  SO  THAT  THE  CONFIGURATION 

C  GENERATES  ENOUGH  FORCE  AT  CORRECT  DISTANCE  TO  BALANCE  THE 
C  WEIGHT  OF  THE  SYSTEM 

£******************************************* ******************* *********** 
C  PARAMETERS  for  ITERATION 

DATA  RAOI AN/5 7. 295 7795/ 

TIRHO»2.0/RHO 

GMAS$»32.2*MASS 

£****««** 

C  INITIALIZE  VARIABLES 
XCG*0.0 
SINKRTsO. 

DTHETA*0. 

DPHI*0. 

SIE»0. 

VELX=0. 

C ******** 

C  TOLERENCES  cOR  ITERATION 
PTCL*0  «  5 
HT0L*HYI*0.005 
AT0L*0, 003 
XT0L*0 .05 
NITE»10 
C******** 

C  SAVE  INPUT  VALUES  OF  CC,FF 
CCI*CC 

FFI*PF 

GGI*GG 

C******** 

C  INITIALIZE  FLAGS 
IPAS*0 
I0DIN*0 
ICON* I 
ICR  EST*1 

C ********* 

C  SET  TESTING  TOLERANCE  INDEX  BASED  ON  GEOMETRY 
ICGF*1 

IF(ABSICC) .GE. 0.001. AND. ABS(FF) .LE.O. 001) ICGF*2 
IFIASS(CC) .LE. 0.001. ANO.ABS(FF) .Gc.O. 001) ICGF*3 
IF ( ABS ( CC )  . LE .0.00 1 . ANO.ABS ( FF ) ,LE.0.001)ICGF=4 
C*******************mm#+mm*mm+***mm*#**m** *************************** ***»>: 
C  INITIAL  VALUE, ITERATION  l 
C  SET  BOLNOARIES  FOR  STATIC  LOAD  MAP  PART 


NVCS*10 
NPHl* 1 

nthet*i 

C  SET  YCG  ITERATION  BOUNDARIES 
YCGSTOP*! HYI*GG ) *0 .9 
YCGSTRT*CHYI*-GG)*1 .1 
C  SET  PITCH  ANGLE  ITERATION  BOUNDARIES 
PHISTRT*PHIYC 
°WIST0P*0.0 

C  SET  ROLL  ANGLE  ITERATION  BOUNDARIES 
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THSTRT=THEYC 

THST0P*0.0 

C  IF  INPUT  BOUNDARIES  ZERO  USE  DEFAULT  VALUES 

IFUYSTRT.EQ.O.O)  .AND.  (YSTOP.EQ.O.OH  GO  TO  13 

YCGSTRT*YSTRT 

YCGSTOP=YSTOP 

C  ***************************************************** *******************- 
C***  ***********  *****************************  ***********************  ******* 
C  ITERATION  1  BEGINS.  YCG,PHIE  ANO  THETAE  ITERATED 

Q,************************************************************************? 

C********** ****%*********** *************************** ******************* ~- 
13  CONTINUE 

PMI0ELT*0.0 

THDELTsO.O 

YCGOELT=( YCGSTOP— YCGSTR  T)/9 .0 
10  CONTINUE 

C  COMPUTE  TEST  POINT  VARIABLE  OELTAS 
IF(IPAS.LT.<0  GO  TO  12 
YCGDELT=(YCGST0P-YCGSTRT)*0.5 
PHI0ELT*(PHIST0P-PHISTRT)*0.5 
TH0ELT=(THST0P-THSTRT)*0.5 
12  CONTINUE 

IPAS=IPAS*1 
ID ID* l 

C  THETAE  LOOP 

THETAE=THSTRT 
I  IT =0 

00  400  ITH=1 »NTHET 
C  PH  IE  LOOP 

PHIS=PHISTRT 
DO  200  IPHI*i tNPHI 
C  YCG  LOOP 

YCG*YCGSTRT 

DO  300  IYCG»1,NYCG 

IIT*Iim 

CC*0. 

FF*0. 

11  IF(ICREST.EQ.2)CC*ZCC(IS,JS,KS) 

IF ( ICREST • EQ.2 )FF*ZFF ( IS  t  JS  *KS) 

IDEX*0 

IFLAG*0 

C 

C  ***********************************************************************  - 
r  ****** *******m******* *********************  *****************************  - 

C  ITERATION  2  BEGINS.  HY  ITERATEO 

C  **************************************************** *******************  ~ 
C  ***********************************************************************  - 

HY  STR  T  *0  •  9  *HY  I 
HYSTOP*HYI 
16  CONTINUE 
I DON* 1 

HY  STR  T* AM A  X 1 1  HYSTR  T , ( HYI *0 . 5 )> 

HY STOP* AM  INI (HYI ,HYSTOP ) 

HYOEL  T*  <  H Y  STO  P-HY  STRT )*C .5 
HY*HYSTRT 

00  15  IHY*1,3  568 
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HYTEST ( IHY ) =HY 

C  CALL  GEOMETRY  SUBROUTINES 
CALL  TRUNK ( r SHAPE ) 

IP( ISHAPE .EQ.O) ICASS*0 
IF(ISHAf*5»EO*0 ) RETURN 
CALL  SEGMNT(l) 

CALL  COORON 
CALL  PROFILE 
CALL  CLRNC5 
CALL  SHAPE 2 

C  TEST  IF  EXHAUST  AREAS  CLOSEO 
PCH«QPI 
PTKsQPl 

IFIATKCH.LT. C.OOOOODGO  TO  6C1 

IF ( ATKAT . LT.O .OOOOOI ) GO  TO  601 

IF (AGAP .LT .0.000001 )G0  TO  601 

IPN*1 

IPPEST=1 

IRST*0 

ICASE=l 

C  ***********************  **************  **********  ***********  ♦at**  **** 

C  INITIAL  VALUE,  ITERATION  3 

C  SET  FAN  PRESSURE  ITERATION  BOUNDARIES 
PSTART=QPl/2. 

PST0P=QP1 


C************************************************************************- 
c ***************************************************** ******************** 
C  ITERATION  3  BEGINS, °FaN-  ITERATED 

C  ***************  *******  ************************************»*************!« 


PINC1*(PSTOP-PSTART)/30.0 
P INC  =  ( PSTOP— P START )/9 . 0 
PFAN*PSTART 
DO  100  1*1,10 

IF ( IPREST • EO. 2 )  »FAN=PFSAV(ICaSE) 


C  CALL  FAN  MODEL  TO  FIND  QF AN 
CALL  FMFAN 


C  FAN  TNLST  PRESSURE 

IF (AATFN. GE.l ,0)PATFN*0.0 
IF(AATFN.G£.1.0)GO  TO  259 
PA  TFN*-RH0/2 .0* (OF AN/ ( A ATFN*CAF ) ) **2 
259  CONTINUE 

C  PLENUM  PRESSURE 

PPLM«PFAN*PAT*N 
IF(PPLM.LT.O.O)  GO  TO  35 
SIGN-1.0 

C  PLENUM  TO  ATMOSPHERE  FLOW 

QPLAT*APLAT*C?A*SQRT(TIRH0*ABS(PPLM1 )*SIGN 

C  ®AN  TO  PLENUM  FLOW 

QFNPL*QFAN-OPLAT 

C*** *********** ***************************** ***************************** 

C  INITIAL  VALUE,  ITERATION  - 
.  PCH*PPLM/2. 
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C 

C *******  Mt***************************************************** ********** * 

C*»*  ***•*****»*****»»*%»**»****************  ****************************** 

C  ITERATION  4  BEGINS, PCH  ITERATEO 

C******»************************************ ***************************** *^ 
C«*« ******* ********************************* **********  ***************** **4u 
00  50  KK*l,20 

C  ITERATION  OF  CUSHION  PRESSURE 
SIGN»1.0 

IFIPCH.GT.PPLM>SIGN»-l.O 
C  PLENUM  TO  CUSHION  FLOW 

QPLCH«APLCH*CPC*SQRT(TIRHO*ABSlPPLM-PCH))*SIGN 
C  PLENUM  TO  TRUNK  FLOW 

QPLTK»QFNPL-QPLCH 

SIGN*l.O 

IF  IQPLTK.LT. 0.0)  SIGNs-i.O 
C  TRUNK  PRESSURE 

PTK»PPLM-RHO/2.0«(QPLTK/UPLTK*CPT)  )**2  *SIGN 
SIGN*1  .0 

IFIPTK.LT. 0.0)  SIGN*-1.0 
C  TRUNK  TO  ATMOSPHERE  FLOW 

QTKAT»SIGN*CTA*SQRTfTIRHO*ABS ( PTK) ) *( ATK AT*0.66667*ATKATC ) 

C  TRUNK  TO  CUSHION  FLOW 
QTKCH=QPLTK-QTKAT 
SIGN*1 .0 

IF(QTKCH.LT.O.O)  SIGN*-1.0 
C  CUSHION  PRESSURE 

PCHI»PTK-RHO/2.0*( QTKCH/( ( ATKCH+0.66667*ATKCHC )*CTC ) ) **2*S IGN 
Cm***************** ************************* ********** ***************  mm***: 
C  TESTING  VARIABLE,  ITERATION  4 

IF( ABS (PCH— PCHI ) • LE.PTOL )G0  TO  75 
C 

C  **************************  ***********  ****************  *******************  *: 

C  SELECTING  NcW  VALUE,  ITERATION  4 
PCH»(PCHl>PCH)/2.0 
C 

C  ITERATION  CONTINUEO 
50  CONTINUE 

C *******  ***************  *******************  *********************  ********** *. 

c********************************* ********  *********  ********  ********  ******* 
C  ITERATION  4  ENOS 

C *******************************************  **  *********** ****** ****** *****.' 
C ***************************************************** ******************** 

C  INFEASIBLE  CONFIGURATION.  CHOOSE  NEXT  VALUE  OF  PFAN 
35  PSTART=PSTART*PINC1 
IRST*IRST+I 
IRTT*IRST-3C0 
IF ( IRTT .GT .0 ) I RST*0 

I F ( IRTT)41 ,41,601  • 

41  P0RF»PST0P-l.5*PINCl 

IF(PORF.LT.PSTART)  GO  TO  24 
GO  TO  25 

75  IF{PTK.LT.PCH.AND.I.LS.2)G0  TO  35 
Ie(PTK.LT.PCH)PSTOP*PFAN-PINC 
IFIPTK.LT. PCH)GO  TO  25 
IF(PCH.LT.O.O)  GO  TO  35 
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C  CUSHION  TO  ATMOSPHERE  FLOW 
QCHAT*QPLCH+QTKCH 
IFCIPREST.EQ.2)GO  TO  600 
C  COMPUTE  ITERATED  GAP  AREA 

AG APP ( I l*QCHAT/ <CG AP*SQRT ( TIRHO*  PCH ) ) 

PFSAV ( I )»PFAN 
PFAN«PFAN+PINC 
IOC  CONTINUE 
IRST»0 

C ****************************************************************** ******* 
C  TESTING  VARIABLE?  ITERATION  3 
01 F«ABS ( AGAPP { 1 )- AGAP ) 

IOIF-1 

00  5C0  J*2?10 
XTEST*ABS ( AGAPP ( J ) -AGAP ) 

IFCXTEST.LT .OIF) IDIFsJ 
IF (XTSST.LT. OIF)OIF»XTEST 
IF (XTEST.LT.A TOL) IPREST*2 
500  CONTINUE 
C 

ICASE*IDIF 

C ********************************************************************* 4  • 

C  SELECTING  NEW  VALUE,  ITERATION  3 
PSTART«PFSAVf I0IF)-PINC 
PSTOPaPFSAVCIOIF ) ♦PINC 
C 

IPN*IPN*1 

I F f IPN.GE .10)  GO  TO  601 
GO  TO  24 

601  I DON*  0 

C?***M***„***?*********WM*««*****M*****M****M***4******?*?**?m*?,:> 

C*** **************************************** ************* ***************** 
C  ITERATION  3  ENDS 

C ******************** *********************** *************** ************** » 
£***  ************  **  ********************  ******  a****************************.? 

600  CONTINUE 

PRAT*AMAX 1(0.0? AM INI (1 .0»PCH/PTK ) ) 

CALL  HYCURV(PRAT?HX ) 

HYPRES (IHV )*HYI*HX 
HY  ERROR ( IHY ) *MY— HY PRES ( IHY ) 

IF(IFLAG.EQ.l)  GO  TO  90 
15  HY»HY>HYOELT 
I0EX*I0EX*1 

IF  (I0SX.LT.15)  GO  TO  603 
C  IMPOSSIBLE  CONDITIONS  ,  SET  ERRORS  TO  1000000. 

IF(IPAS.LE.3)G0  TO  60* 

602  ZWT(lYCG?IPHItITH)»1.0E*06 
ZCC( IYCG?I PHI ? ITH)»1,0E*06 
ZFFCIYCG? I  PHI ,ITH)» 1.05*06 

60 ^  CONTINUE 
I0I0»0 
GO  TO  300 
603  CONTINUE 
C  TEST  HY  VALUE 
IHX-1 

HX«ABS(HYERR0R(1) ) 
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00  80  T WY  *  2 » 3 

IF (ABS(HVERROR< IHY) >.GE.HX)  GO  TO  80 
IMX*IHY 

HX*A8S (HYERROR (IHX) > 

80  CONTINUE 

£***  *******************************************************  ***************.- 
C  TESTING  VARIABLE?  ITERATION  2 

IF(HX.LT.HTOL.ANO.IOON.NE.O)IFLAG*l 
IF(IFLAG.EO.I)  GO  TO  86 

C ****************************************************************** *******- 
C  SELECTING  NEW  VALUES,  ITERATION  2 
IHXS=IWX 

88  IF (IHX— 2)81,81,82 

81  IHX=l 

IF  I  ( HYERROR ( 1 ) .GT. 0.0 ) .AND. (HYERROR! 2).LT.0.0))  GO  TO  83 
IF ( (HYERROR ( 1 ) *LT .0 .0  )  • AND. (HYERROR l 2) .GT .0*0))  GO  TO  83 
IF(IHXS.EQ.l)  GO  TO  84 

82  IHX*2 

IF  ( ( HYERROR! 2 ) .GT .0.0 ) .AND. ( HYERROR (  3) «LT .0 .0 ) )  GO  TO  83 
IF((HYERROR(2).LT.O.O).ANO.(HYERROR(3).GT.O.O>>  GO  TO  83 
IP(IHXS.EQ.3)  GO  TO  85 

33  HT  =A8Sl HY ERROR ( IHX )  /( HYERROR  ( IHX *1 ) -HY  ERROR  ( IHX )  > ) 

HY  STRT*HYTEST( IHX ) «-HT*( HYTEST ( IHX*1 ) -HYTEST (IHX 1) 

HT*AMINl(HT,( 1.0-HT)) 

HT*AMAX1(HT,0.25) 

HYOELT*HT*(HYTcST( IHX*1)-HYTEST( IHX) ) 

HYSTRT*HYSTRT-HYOELT 
HYST0P*HYSTRT*2.0*HY0ELT 
GO  TO  16 

84  HYSTRT=HYSTRT-HYOELT 
HYSTOP*HYSTRT*2.0*HY0ELT 
GO  TO  16 

85  HYSTRTsWYSTRT+HYDELT 
HYSTOP*HYSTRT>2.0*HYDELT 
GO  TO  16 

86  HYSTRT=HYTEST(IHX) 

HY  STOP=HY  STRT+2 .0*HY0ELT 
GO  TO  16 
90  CONTINUE 

IF((ICREST.EQ.2).AN0.(IPAS.GE.4))  GO  TO  2001 
C  **  ****************************************  *************************  **  **  *: 

c  ************************************************************************ 
C  ITERATION  2  ENOS 

C  ************************************************************************ 

c  ************************************************************************ 
C  CALCULATE  FORCES  ANO  TORQUES 
CALL  FORCE 

CC=(TCPZ*TTPZ)/(FCP*FTP) 

FP*— ( TC  PX ♦ TTPX ) / ( FCP+FTP) 

C  VERTICAL  LOAO  CAPABILITY 

FORCN* ( FCP+PTP ) *COS (PHIE)*C0S (THETAE ) 

C  STORE  VALUES  OF  PERFORMANCE  VARIABLES  FOR  LOAO  MAP 
IF(IPAS.Gc.4)  GO  TO  298 
FORCN S ( IPAS  »I IT) * FORCN 
CCS(IPAS,IIT)«ATKCN 

YCGS(IPAS,IIT)*YCG-*-CC*SIN(PHIE)*COS(THETAE)-«F*SIN(THETAE) 
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PHIS(I°A$,IIT )  =PHI E*R ADI AN 
AGAPS(IPAS,IIT)=AGA? 

PCHS(IPAS,IIT)*PCH 

PTKS( IPAS ,IIT)=PTK 

PPLMS( IPAS,IIT)=PPLM 

PFANS(IPAS,IIT)*PFAN 

QFANS ( IPAS  »IIT)*QFAN 

THIS! IPAS , IIT)=THETAE*RAOIAN 

FFS(IPAS,IIT)*FF 

TORXS(IPAS,IIT)=TCPX«-TTPX 

TORZS (IPAS  »IIT)=TCPZ+TTPZ 

298  CONTINUE 

C  IF  ITERATION  for  equilibrium  set  force  MATRICIES 
IF ( IPAS.LE .3)  GO  TO  299 
ZCCC IYCG, I  PHI , ITH) *CC 
ZWT( IYCG, I  PHI , ITH ) =FORCN 
ZFP(IYCG»IPHI, ITH )=FF 

299  CONTINUE 

3 00  ycg=ycg+ycgoelt 
C  END  OF  VCG  ITERATION  LOOP 
r 

ZOO  PHIE*PHIE+PHI05LT 
C  END  OF  PHIS  ITERATION  LOOP 

g 

400  THSTAE*THETAE*THOELT 
C  END  Oe  THETAS  ITERATION  LOOP 

IF  |{ ISTAT.EQ.2) .ANO . ( IPAS .GE.3 ) )  GO  TO  2001 
IF ( IPAS.GE.4)  GO  TO  6000 
GO  TO  (3000,4000,5000) , IPAS 

c  ** *********************** i****************************************** ***»*- 

C  DONE  WITH  HEAVE  PART  OF  LOAD  MAP,  SET  UP  PITCH  PART 
3000  YCGEQUI  =0  . 

IF (YCPHI.GT.O.O.AND.YCTHE.GT.O.O)GO  TO  3010 
C 

C  DETERMINE  EQUILIBRIUM  YCG  BY  INTERPOLATION 
IM0»0 

DO  3500  1*2,10 

IF ( (F0RCNS(1,I) .LE.GMASS).AND.(FORCNS( 1, 1-1 ) .GE.GMASS ) )  I MO*- I 
IF((F0RCNS(1,I) .GE.GMASS) .ANO • ( FORCNS ( 1,1-1) .LE.GMASS))  IMD*I 
3500  CONTINUE 

IF(IMD.EQ.O>  GO  TO  3700 
IF(IMD.GT.O)  GO  TO  3600 
IM0*IASS< IMO) 

C  INCREASING  FORCE 

YCGEQU I *YC  G5  TRT+FL  OAT ( I MO— l ) *YCG0E  LT-( GMA  SS— FOR  CNS  ( 1 , IMO ) >/(FORCNS(  1 
1(1,  IMO— 1)  -FORCNS  ( 1 ,  IMO )  )*YCGDELT 
YCGOELT  *0,0 
GO  TO  3010 
C  DECREASING  cORCE 

3600  YCGEQU I *YCGSTRT*YCGDELT*FLQAT  ( IMO— l )— (GMASS-cORCNS ( 1 ,IMO— l ) ) /( 

1  FORCNS (1 , IMO ) -FORCNS ( 1,1  MO-1) )* YCGOELT 
YCGOELT=0.0 
GO  TO  3010 

37CC  WRITE ( 6, 3701 ) 

3701  FGRMaT(/»5X, 37H  *****  ERROR, MOOIFy  lOAO  OR  YCG  .RANGE 
ICASS-0 
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RETURN 

3010  NYCG*l 

NPHI»10 

YCGST0P*0.0 

PHISTRT*0.0 

PHISTOP=0.10 

C  IF  INPUT  BOUNDARIES  ZERO  USE  OEFAULT  VALUES 

IF  ( (PST.RT .EO.O.O)  .AND.  (  PHSTP •EO.O.O) )  GO  TO  3001 

PMISTRT*PSTRT 

PHISTOP-PHSTP 

3001  PHIDELT*( PHISTOP-PHISTRT)/9.0 
YCGSTRT»YCGEQUI 
TF(YCPHI.GT.O.O)YCGSTRT*YCPHl 
YC PH I aYCGSTRT 
GO  TO  10 

C  ************************************************************************ 

C  DONE  WITH  PITCH  PART,  SET  UP  ROLL  PART 

4000  NPHI »1 
NTHETalO 
THSTRT*0.0 
PHISTOP*0.0 

THST0P=0.1 

C  IF  INPUT  BOUNDARIES  ZERO  USE  OEFAULT  VALUES 

I F f I TSTRT .EQ .0.0 ) .AND. (TSTOP  *EQ  «0>0 ) )  GO  TO  4001 
THSTRTaTSTRT 
THSTOPaTSTOP 

4001  THOELT*( THSTOP— THSTRT) /9.0 
PHI0ELT=0.0 
YCGSTRT«YCGEQUr 

I F  <  YCTHE . GT .0 . 0 ) YC GSTRT=YCTHE 
YCTHE  =YCG  STRT 
GO  TO  10 

C  ********** ********************************  ***********%************«***:*? 

C  OONE  WITH  ROLL  PART 

C******** 

C  INTIAL  VALUES  ITERATION  1 

C  SET  BOUNDARIES  POR  EQUILIBRIUM  CONOITION  PART 

5000  NYCG«3 
NPHI*3 
NTHET«3 

PH I STRT*— 0 .025 

PHISTOP*0.025 

THSTRTa-0.0125 

THST0P«0.0125 

YCGST0P=1 .02*YCGSTRT 

YCGSTRT =YCGSTRT*0 • 99 

PHIOELT*(PHISTOP-PHISTRT)/2.0 

YCG0ELT=(YCGST0P-YCGSTRT)*0.5 

THOSLT*(THSTOP-THSTRT)*0.5 

GO  TO  10 

C  ******m****** *************************************** **»*»rn**********M*M^ 


4000  continue 
IS»1 
JS»1 
KS»l 


Table  217:  LISTING  FOR  SUBROUTINE  STATIC  (CONTINUED) 


C«****w«* 

C  TESTING  VARIABLE  , ITERATION  1 
C 

C  DIFFERENT  QUADRATIC  INDICES  ARE  FORMED  DEPENDING  ON  ZERO  OR 
C  NONZERO  VALUES  OP  FFI  AND  CCI 
GMASS«MASS*32.2 
GO  T0(61,62,63,64)ICGF 

C  ZWT<2,2,2)  IS  CENTRAL  POINT  OF  FORCE  MATRIX 

61  XTEST>t(ZWT(2,2,2)>GMASS)/GMA$S)**2 
lM(ZCC(2,2,Z)-CCn/CCn**2MCZPF(2,2,2)-FFI>/FFI>**2 

GO  TO  65 

62  XTEST-((ZWT(2,2,2)-GMASS)/GMA$S)*«2 
l*((ZCCC2,2,2)-CCI)/CCI>**2 

GO  TO  65 

63  XTEST- ( C  ZWT(  2 ,2,2) -GMASS ) /GMASS ) **2 

l  ♦<(ZFF(2,2,2)-FFI)/FFI>**2 

GO  TO  65 

64  XTES T»l IZWTI2,2,2)-GMASS)/GMASS)**2 
XTOL*O.OOl 

65  CONTINUE 

C  TEST  ENTIRE  MATRIX  AGAINST  INOEX  FOR  MINIMUM  ERROR  STATE 
00  1000  IQQ»1,3 
00  2000  JQQ«1,3 
00  1000  KQQ*l,3 
I-IQQ 
J-JQQ 
K*KOQ 

IF(ABS(CCI>.LE.0.001>J»2 
IF(ABS(FFI).lE.0.001)K*2 
GO  TO  1 91 ,92,93 ,94) ICGF 
C  USE  PERFORMANCE  INOEX  SPECIPIEO  ABOVE 

91  XOT$s( t  ZWT ( I, J,K) -GMASS) /GMASS )**2 

!♦(  (ZCC(I,J,K)-CCI>/CCI>**2*( (ZFF(I,J,K>-FFI)/FFI)**2 
GO  TO  95 

92  XOIS*( ( ZWT ( I , J,K )— GMASS ) /GMASS ) **2 
1*1 (ZCCII, J»K)-CCI l/CCI )**2 

GO  TO  95 

93  X0IS»((ZWT(I,J,K)-GMASS)/GMASS)**2 

1  ♦(IZFF(I,J,K)-FFI)/FFI)»*2 

GO  TO  95 

94  XDIS*( (ZWT (I, J»K) -GMASS) /GMASS )**2 
95  CONTINUE 

IF (XOIS  «GT .XTEST) GO  TO  1000 
C  SET  INOEX  FOR  BEST  POINT 
IS«I 
JS>J 
KS«K 

XTEST-XOIS 
1000  CONTINUE 

C  IF  POINT  OK,  SET  *0R  FINAL  PASS 

IF  (XTEST.LT.XTOL)  GO  TO  2CC0 
C 

IF(XTSST.GT. 1.06*09)  GO  TO  1201 

Qmm**w*+*m*+*m**+*m***m*mm*m****m+mmm**m****m****+**m*+#*  ************ 

C  SELECTING  NEXT  VALUES,  ITERATION  l 

C  SIDE  POINT  IS  THE  BEST,  MOVE  THE  CUBE  SIOSMAYS,  SUCH  THAT  THE 
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Table  217:  LISTING  FOR  SUBROUTINE  STATIC  (CONTINUED) 


BEST  POINT  BECOMES  THE  CENTER  POINT 

VCG*YCGSTRT>PLOAT( IS-l)*YCGDELT 
PHlS*PHISTRT*FLOAT ( JS-1 )*PHIDELT 
THETAE*THSTRT*FLOAT(KS-l)*THDELT 
IF(IS.EQ.2.AND.JS.EQ.2.AN0.KS.EQ.2)G0  TO  1200 
YCGSTR T» YC  G- YC  GOE  L  T 
YCGSTOP*YCG«-YCGOELT 
PHISTRT*PHIE— PHIOELT 
PHIST0P»PHIE*PHI0ELT 
THSTRTaTHETAE-THOELT 
THSTOP*THETAE*THOE  LT 
IODIN»IOOIN*1 

IF (ICON. EQ .O.ANO. IODIN.GE .NITE ) GO  TO  2003 

TEST  IF  ITERATION  UNABLE  TO  SOLVE 
IF ( IOOIN.GE.NITE )G0  TO  2002 
GO  TO  10 

MIO  POINT  IS  THE  BEST,  REDUCE  EACH  SIDE  OF  THE  CU8E  BY  FACTOR  2 

1200  YCGSTRT*YCG-YCGDELT/2. 

YCGSTOP*YC  G+YCGOE L  T/2 . 

PHIST0P*PHIE+PHIDELT/2. 

PHISTRT*PHIE-PHlOELT/2. 

THSTRT*THSTAE— TH06LT/2 • 

THST0P»THETAE>TH0ELT/2. 

I00IN*I00IN«-1 

IF ( IOIO.EQ  .1 )  IC0N*0 
IF{ IOOIN.GE.NITE) GO  TO  2003 
GO  TO  10 
C 

C  NO  POINT  IS  FEASIBLE,  LIFT  UP  THE  CUBE,  SUCH  THAT  VALUES  OF 
C  YCG  ARE  HIGHER 

1201  YCGSTRT=YCGSTRT*3.*YCGDELT 
YCGST0P»YCGST0P«-3.*YCG0ELT 
IOOIN*IOOIN*l 

IF ( IOOIN.GE.NITE ) GO  TO  2002 
GO  TO  10 
C 

2000  PHlE*FLOAT(JS-l)*PHIOELTt>PHISTRT 
THETAE*FL0AT(KS-1 ) *THOELT*THSTRT 

YCG»FLOAT(  IS-1 )*YCGDELT*YCGSTRT*ZCC( IS»JS,KS>*SIN(PHIE)*COS (THETAE 
U-ZFF(IS,JS,KS)*SIN(THETAEJ 
ICREST*2 
GO  TO  11 

C  **  ERROR  RETURN  AFTER  MESSAGE 

2002  WR ITE ( 6,1202 ) 

1202  FORMATt 10X  »*INFSASIBLE  CONFIGURATION  OR  XTOL  TOO  SMALL*//) 

ICAS5»1 

RETURN 

2003  WR ITE ( 6, 1203) X TEST 

1203  FORMAT ( 10X , ‘INSUFFICIENT  NUMBER  OF  ITSRATI0NS*/1 5X , *( A)  INCREASE  V 
IALUE  OF  NITE,  0R*/15X,*(B>  INCREASE  VALUE  OF  XTOL  TO  AT  LEAST*, E10 
2.3/15X,*SOLUTION  !A)  INCREASES  BOTH  ACCURACY  AND  COST*) 

ICASE-C 

RETURN 
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Table  217:  LISTING  FOR  SUBROUTINE  STATIC  (CONCLUDED) 


C**’*****»***»**»**»*****»**»»**»*>****0****^*************»*****»****#**^*ta 
C*«*****»**»******»*:-*»**»»»*»*>M>*<«***  **m**+****+**m*mm**+*M+*ww*  «»***»*» 

C  ITERATION  1  ENOS 

C  ***************m*************mm***** ******  ***********************  ****** 

C  ****************************  **************  **********  *****  n*«(y,M*n3« 


C  RESET  CC.FF  VALUES  TO  INPUT  AND  RETURN 
2001  CC*CCI 
FF-FFI 
ICASE-1 
RETURN 
ENO 


Table  218:  LISTING  FOR  SUBROUTINE  STEQU 


CST5QU 

SUBROUTINE  STEQU 
C  DYNAMIC  PAN  VERSION  FOR  FMA4 
C  STATE  EQUATIONS  FOR  THE  DYNAMIC  SYSTEM 
C 

REAL  L,L1,L2,LS,LP,MASS 
C 

COMMON/COEFFS/CPA,CAF,CPC,CPT,CTC,CGAP,CTA,CVENT,CKK 
COMMON/DYNAMIC/TIME, FTIME.DTIME, IQ, NQ, DVCH, OVTK, VELX , DERY ( 13 ) 

1 , DVCHP 

C0MM0N/ESTM0/GEC,0AMPC,U,0ECCL,HDC,PHA,CENFX,CENFZ,ZEPRV,ZPRV 
1.QP2, SLOPE 

COMMON/FLUID/QFNX ,QPLAT,QPLCH,QPLTK,QTKAT,QTKCH,QCHAT,PATFN,PFAN, 

1  PAT,TEMPAT,RHO,QVSNT 

COMMON/FORTQ/FCP,FTP,FORCT,FDF,FORCEY,TCPX,TTPX,TORQTX,TDFX, 
1TO»OUEX,TCPZ,TTPZ,TORQTZ,TOFZ,TO»FZ,TORQUEZ 
COMMON/VEHCL/MASS,AlX, A IZ  ,  AIXY , A  I YZ , Al ZX , CC ,GG, F F, A  I F AN 
COMMON/ ARE A V/S , AATFN, APLAT, APLCH ,APLTK ,ATKAT,ATKCH, AGAP , ATX , ACH , 

1  ATKCN, APRV.VCH , VTK,VPLM, VCHD ,VF AN , ATKATC  ,ATKCHC 
COMMON/STATE/PPLM ,  PCH »  PTK  » S INKRT  , YCG , DPHI ,DTHETA ,THETAE , PHIE , SI E 
I  ,XV,VV,OFANX 

COMMON/PR V/DPRV  »PPLMB  »XA»AKPRV,AMPRV,  SPRV ,NPRV » A VENT 
COMMON/FLAGS/ICLN,IDIF,IFLAG,ISTAT, IPP,IPRV,MM,NSTOP 
C0MM0N/GE0MET/A,B,HYI,L,D,LS,LP,SH,NH,AH,NR,PHI1,PHI2,R1,R2,L1,L2, 
1A1,A2,X1,X2,HY 
COMMON/COV  RLY / INST 
COMMON/CX/XX ( 1) 

COMMON/FM  PCH/NPCH 
COMMON/CNTRLS/1 1 , 1 2  .MODE ,  £  <  1 ) 
common/fm err/fmx 
C 

C  FOLLOWING  SUBROUTINES  ARE  CALLED  TO  UPOATE  VALUES  OF 
C  FORCES  .TORQUES  AND  FLOWS.  GIVEN  THE  NEW  VALUES  OF  THE 
C  STATE  VARIABLES 
C 

CALL  FLOW 
CALL  FORCE 
C 
C 
C 

£**************************************************************  **********  s 

C ****************************** ******* **************** ************* ****** *• 
C  STATE  EQUATIONS 

C******************»*****»*****************  *******************  **********  = 
c  *******  ********  *****************************************************  *r***:s 

C 

C***THE  STATE  VARIABLES*** 

C  DPPLM..PLENUM  PRESSURE  (GAGE) 

C  2) PCH. .CUSHION  PRESSURE  (GAGE) 

C  3) PTK.. TRUNK  PRESSURE  (GAGE) 

C  4JSINKRT.. VERTICAL  SINK  RATE,  POSITIVE  UPWAROS 
C  5>YCG..CG  ELEVATION 
C  6)0PHI ..PITCH  RATE, VEHICLE  FRAME 
C  7) OTHETA. .ROLL  RATE,  VEHICLE  FRAME 
C  3 > THETAS.. EULE RIAN  ROLL  ANGLE 
C  9) PHIE..EULERIAN  PITCH  ANGLE 
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Table  218:  LISTING  FOR  SUBROUTINE  STEQU  (CONTINUEO) 


C  10>SIE..£ULERIAN  YAW  ANGLE  (APPROX.  ZERO) 

C  il)XV..OISPLN  OF  PRESSURE  RELIEF  VALVE 
C  12 >VV.. VELOCITY  OF  PRESSURE  RELIEB  VALVE 
C  13 )QFANX. .FAN  AIR  INERTANCE  FLOW 
C 

C  VARIATIONS  IN  THE  EQUATIONS  ARE  MAOE  TO  ACCOMOOATE  SPECIAL  CONDITIONS 
C 

IF (IPP) 11 » 10» 11 

C  COMBINED  TRUNK-PLENUM  OYNAMICS  »  IPP»C 

10  DERY(l)*CKK*(PPLM->PAT)/(VPLM*VTK>*(QFANX-QPLCH-QPLAT-QTKCl+-QTKAT 
1-0 VTK-0 VENT) 

DE  RY  ( 3  >  *D  ER  Y  C 1 ) 

GO  TO  12 

C  SEPARATE  TRUNK-PLENUM  OYNAMICS  t  IPP=l 

11  OERY< l  )*( CKK* ( PPLM+PAT)/VPLM )  *( QFANX— QPLCH— QPLTK-QPLAT— QVENT) 

DERY( 3 )*l CKK*(PTK+PAT )/VTK )*( QPLTK-QTKCH-QTKAT-DVTK ) 

C  CUSHION  FLOW  ABOVE  GROUND  EFFECT  TRANSITION  ZONE 

12  QC  HFT * QPLC  H+QTKCH-0 VCH 

C  CALCULATE  GROUNO  EFFECT  TRANSITION  ZONE 
TB OUNO*GG  *H Y I  * ( 1 . ♦  G  EC ) 

BBOUND*GG*HYI 

C  DETERMINE  IF  ACLS  IN  TRANSITION  ZONE 
IF (FMX .GT .0. )  GO  TO  16 
IFCYCG.GT . TBOUNO )G0  TO  13 
IF( YCG.GT .BBOUND)  GO  TO  14 
GO  TO  16 
C 

C  ABOVE  TRANSITION  ZONE 

13  OCHA T*QCHFT 
I F  LAG=0 

I  Q®0 
N0*0 
GO  TO  15 
C 

C  IN  TRANSITION  ZONE 
14  IFLAG*1 

NQ*tOO 

IO*IFIX(ABS(  ( TBOUNO— YCG) / (TBOUNO— 8B0UND)*FL0AT (NO) ) ) 

IF ( IQ.GE.NO) IQ*NQ 
GO  TO  17 
C 

C  IN  GROUNO  EFFECT  ZONE 

16  N0*1 
10*1 
IFLAG-2 

C  COMPUTE  CUSHION  TO  ATMOSPHERE  FLOW 

17  QCHAT*FLOAT( NO-IO l/FLOAT (NQ ) *QCHFT ♦FLOAT ( IQ)  /R.  OAT(NQ)*QCHAT 
C  CUSHION  PRESSURE  DERIVATIVE 

15  0ERY(2)*(QPLCH-*>QTKCH-QCHAT-0VCH«-0VCHP*PCH*0ERY(3)/(PTK*PTK)  )/ 

1  ( VCH/  ( CKK  *  ( PCH+PA  T )  KDVCH  P/PTK  ) 

C  YCG  ELEVATION  DERIVATIVES 

0ERY(4) ■FQRC5Y/MASS-32 .2 
OSRY ( 5 ) *S I NKRT 

C  ANGULAR  POSITION  DERIVATIVES 

0SRY(6)»( AlX*fTORQUEZ-DTHETA*(AIXY*DTHETA+AlYZ*OPHI) )-AIZX*(TOROUEX 
1X*0PHI*(A IXY*0THETA*4IYZ*0PmI ) ) )/(AIZ^  AlX-AIZX*AIZX ) 
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Table  218:  LISTING  FOR  SUBROUTINE  STEQU  (CONCLUDED) 


DERY  ( 7 )  *(  AI2*(TORQuEX»OPHl*(AIXY*OTHETAfAlYZ*OPHn  >-A IZX« (TORQUEZ 
l-OTHETA*(  AIXY*OTrtcTA>AIYZ*OPHI )  )  >/UIZ*AIX-AIZX*AIZX) 

IP  (INST.NE.n.OR.ATKCN.NE.O.  >  GO  TO  20 
0ERY«6)*-PHIS 
DERY( 7)»— THETAc 
20  CONTINUE 

DERY(8)*PTHETA*C0S (PHIE) 

DERY(9)«0PHI*0TH6TA*SIN(PHIE)*TAN(THETAE) 

0ERY(10>«DTMETA*SIN(PHIE)/C0S(THETAE) 

C  TEST  IP  PRV  OPEN 

IF(IPRV>61,60,61 

C  COMPUTE  PRV  VALVE  VELOCITY, LOCATION 
61  DERYI11)»VV 

OERY( I2)»(PPLM*APRV-AKPRV*XV-PPLMB*APRV-ZPRV*VV)/AMPRV 
IF(FMX.GT.C.)  DSRY(12)«<06RY(12)*AMPRV  -  10C.*AKPRV* 

2  ( AMAXl  (  0*  ,XV-XA)«-AMINU0.,XV))  l/AMPRV 
50  TO  62 

C  PRV  FULL  OPEN, AT  STOPS, OR  NO  PRV 
60  0SRY(11)*0.0 

OERY ( 12 )=0 .0 
62  CONTINUE 

C  DYNAMICS  FOR  FAN, FAN  FLOW  RATE  OF  CHANGE 
DERY( 13  >=  t PFAN+PATFN-PPLM )/AIFAN 
C  CUSHION  PRESSURE  IS  ZERO  ABOVE  TRANSITION  ZONE 
IF (FMX.GT »0. )  GO  TO  75 
IF(IFLAG.EQ.O)  XX(NPCH)*0.0 
75  CONTINUE 
RETURN 
END 
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Table  219:  LISTING  FOR  SUBROUTINE  S V 


CSV 

SUBROUTINE  SV ( UW , VW,WW ,PW ,QW, RW, UWS , VWS, WWS ,UG,VG,WG, PG ,QG, RG ) 
VERSION  1.  MAY  26  1977 

PURPOSE  SUM  TWO  SETS  OF  3  AXIS  VELOCITIES  ANO  ANGULAR  RATES 
METHOO  ADO  STEADY  OR  SHEAR  WIND  COMPONENTS  TO  THE  RANDOM 
GUST  COMPONENTS  ANO  GUST  ANGULAR  RATES 
CALL  SEQUENCE 
******  OUTPUTS  ****** 

LINEAR  VELOCITIES  BOOY  AXES 

UWfVW,WW  -SUM  OF  XtYtZ  AXIS  WIND  VELOCITIES,  FT/SEC 

ANGULAR  VELOCITIES  —  BOOY  AXES 

PW,QW,RW  -SUM  OF  X,Y,Z  AXIS  ANGULAR  VELOCITIES,  OEG/SEC 

******  INPUTS  ****** 

.LINEAR  VELOCITIES  —  BOOY  AXES 

UWS,VWS,WWS  — X , Y , Z  AXIS  STEADY/SHEAR  WINO  COMPONENTS,  FT/SEC 

UG»VG»WG  — X , Y , Z  AXIS  GUST  WIND  COMPONENTS,  FT/SEC 

ANGULAR  VELOCITIES  —  BODY  AXES 

PG ,QG,RG  — X , Y , Z  AXIS  GUST  ANGULAR  COMPONENTS,  DEG/SEC 

WRITTEN  BY  MAHINDER  WAHI  MAY  1977 

***  SUM  LINEAR  VELOCITIES  *** 

UW*  UWS  ♦  UG 
VW*  VWS  ♦  VG 
WW=  WWS  *  WG 
C  ***  SUM  ANGULAR  VELOCITIES  *** 

PW=  PG 
QW*  QG 
RW*  RG 
RETURN 
END 


[> 
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Table  220:  LISTING  FOR  SUBROUTINE  SW 


CSW 

SUBROUTINE  SWtVOl, VA1,VB1,SW1,TCI,TC2> 

PURPOSE  -  TO  PROVIOE  SWITCH  CONTROL  FOR  ONE  VARIABLE 


METHOO  -  SEE  COOING 


WRITTEN  BY  -  AOAM  LLOYD 


LATEST  REVISION 


NOV  75 


LIMITATIONS  -  NOT  MORE  THAN  TWO  SWITCHINGS  AT  TIMES  TCI  AND  TC2 


IN  PUT/OUTPUT  LIST 


VO  I 
VAI 
VB1 
SWI 


TCI 

TC2 


OUTPUT  VARIABLE  NO  I 
INPUT  VARIABLE  NO  A1 
INPUT  VARIABLE  NO  81 
SWITCH  CONTROL  INITIAL  VALUE 
*1 .  VO*V8 
=0.  VO=VA 
TIME  FOR  FIRST  SWITCH 
TIME  FOR  SECOND  SWITCH 
tTC2.GT.TCl) 

COMMON/CT I ME/TIME 
COMMON/CIO/IREAO, IWRITE , IOIAG 
SX=SW1 

IF { TIME . GT. TC1.ANO. TIME. LT.TC2)SX=ABS(SW1-1.) 
V01*VA1 

IF(SX.GT.0.5)V01=V81 

RETURN 

ENO 


ANY 

OUTPUT 

VAR 

ANY 

INPUT 

VAR 

ANY 

INPUT 

VAR 

INPUT 

PARAM 

SECS 

INPUT 

PA  RAM 

SECS 

INPUT 

PARAM 
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Table  221:  LISTING  FOR  SUBROUTINE  SX 


CSX 

r 

SUBROUTINE  SX ( VOl , V02 , VAl , VA2 , V8 I , V32t SW1 

»TC1 »TC2) 

V 

C 

C 

PURPOSE 

-  TO  PROVIDE  A  SWITCH  COMPONENT  FOR 

TWO  VARIABLES 

c 

c 

c 

M6THOO 

-  SEE  CODING 

c 

c 

c 

WRITTEN 

BY  -  ADAM  LLOYD  LATEST 

REVISION 

NOV  75 

c 

c 

c 

LIMITATIONS  -  NOT  MORE  THAN  TWO  SWITCHINGS 

AT  TIMES  TCI 

AND  TC2 

c 

c 

r 

INPUT/OUTPUT  LIST 

w 

r 

VO  I 

OUTPUT  VARIABLE  NO  1 

AMY 

OUTPUT 

VAR 

c 

V02 

OUTPUT  VARIABLE  NO  2 

ANY 

OUTPUT 

VAR 

c 

VAl 

INPUT  VARIABLE  NO  Al 

ANY 

INPUT 

VAR 

c 

VA2 

INPUT  VARIABLE  NO  A2 

ANY 

INPUT 

VAR 

c 

VBl 

INPUT  VARIABLE  NO  Bl 

ANY 

INPUT 

VAR 

c 

VB2 

INPUT  VARIABLE  NO  82 

ANY 

INPUT 

VAR 

c 

SWI 

SWITCH  CONTROL  INITIAL  VALUE 

— 

INPUT 

PARAM 

c 

*1.  VO=VB 

c 

=0.  VO=VA 

c 

TCI 

TIME  FOR  FIRST  SWITCH 

SECS 

INPUT 

PARAM 

c 

TC2 

TIME  FOR  SECOND  SWITCH 

SECS 

INPUT 

PARAM 

c 

(TC2.GT.TC1) 

CQMMON/CT IME/TIME 
COMMON/CIO/ IREAO, I WRITE  »I DIAG 
SW*SW1 


Table  222:  LISTING  FOR  SUBROUTINE  SY 


van 


SUBROUTINE  SY(V01,V02,V03,VAl,VA2,VA3,VBl ,VS2 , VB3.SWI ,TCl ,TC2 ) 
PURPOSE  -  TO  PROVIDE  A  SWITCH  COMPONENT  FOR  THREE  VARIABLES 


METHOD  -  SEE  COOING 


WRITTEN  BY  -  ADAM  LLOYD 


LATEST  REVISION  NOV  75 


LIMITATIONS  -  NOT  MORE  THAN  TWO  SWITCHINGS  AT  TIMES  TCI  AND  TC2 


INPUT/OUTPUT  LIST 


c 

VOl 

OUTPUT  VARIABLE  NO  1 

ANY 

OUTPUT 

VAR 

c 

V02 

OUTPUT  VARIABLE  NO  2 

ANY 

OUTPUT 

VAR 

c 

VO  3 

OUTPUT  VARIABLE  NO  3 

ANY 

OUTPUT 

VAR 

c 

VA1 

INPUT  VARIABLE  NO  Al 

ANY 

INPUT 

VAR 

c 

VA2 

INPUT  VARIABLE  NO  A2 

ANY 

INPUT 

VAR 

c 

VA3 

INPUT  VARIABLE  NO  A3 

ANY 

INPUT 

VAR 

c 

VBI 

INPUT  VARIABLE  NO  B1 

ANY 

INPUT 

VAR 

c 

VB2 

INPUT  VARIABLE  NO  B2 

ANY 

INPUT 

VAR 

c 

VB3 

INPUT  VARIABLE  NO  B3 

ANY 

INPUT 

VAR 

c 

SWL 

SWITCH  CONTROL  INITIAL  VALUE 

— 

INPUT 

PARAM 

c 

■1.  VO=V8 

c 

*0.  VO=VA 

c 

TCI 

TIME  FOR  FIRST  SWITCH 

secs 

INPUT 

PARAM 

c 

TC2 

TIME  FOR  SECOND  SWITCH 

SECS 

INPUT 

PARAM 

c 

(TC2.GT.TC1) 

COMNON/CTIME/TIME 

COMMON/CIO/IREADrlWRITE  »IDIAG 

SW»SW1 

V01*VA1 

V02*VA2 

V03*VA3 

IF (TIME. GT. TCI. AND. TIME. LT.TC2)SW=ABS CSWl- 

IF(SW.GT.0.5)V01*V81 

IF(SW.GT.0.5)V02=VB2 

IF (SW.GT. 0 .5) V03*VB3 

RETURN 

ENO 


oooooooooonooooooooor»oooooor»or»ooo 


l  S Wl »TC l » TC2) 

PURPOSE  -  TO  PROVIDE  A  SWITCH  COMPONENT  FOR  FOUR  VARIABLES 


METHOO  -  SEE  COOING 

WRITTEN  BY  -  ADAM  LLOYD  LATEST  REVISION  NOV  75 

LIMITATIONS  -  NOT  MORE  THAN  TWO  SWITCHINGS  AT  TIMES  TCI  AND  TC2 


INPUT/OUTPUT  LIST 


voi 

OUTPUT  VARIABLE  NO  1 

ANY 

OUTPUT 

VAR 

VO  2 

OUTPUT  VARIABLE  NO  2 

ANY 

OUTPUT 

VAR 

V03 

OUTPUT  VARIABLE  NO  3 

ANY 

OUTPUT 

VAR 

VO* 

OUTPUT  VARIABLE  NO  4 

ANY 

OUTPUT 

VAR 

VA1 

INPUT  VARIABLE  NO  A1 

ANY 

INPUT 

VAR 

VA2 

INPUT  VARIABLE  NO  A2 

ANY 

INPUT 

VAR 

VA3 

INPUT  VARIABLE  NO  A3 

ANY 

INPUT 

VAR 

VA4 

INPUT  VARIABLE  NO  A4 

ANY 

INPUT 

VAR 

VBI 

INPUT  VARIABLE  NO  B1 

ANY 

INPUT 

VAR 

V92 

INPUT  VARIABLE  NO  B2 

ANY 

INPUT 

VAR 

VB3 

INPUT  VARIABLE  NO  B3 

ANY 

INPUT 

VAR 

VB4 

INPUT  VARIABLE  NO  B4 

ANY 

INPUT 

VAR 

SW1 

SWITCH  CONTROL  INITIAL  VALUE 
*1.  VO»VB 

■O.  VO»VA 

INPUT 

PARAM 

TCI 

TIME  FOR  FIRST  SWITCH 

SECS 

INPUT 

PARAM 

TC2 

TIME  FOR  SECOND  SWITCH 

SECS 

INPUT 

PARAM 

(TC2.GT.TC1) 

COMMON/CTIME/TIME 

COMMON/CI O/IR 6AO » I WRITE  » I DI AG 

SW-SW1 

IPCTIME.GT.TC1.AN0.TIME.LT.TC2)SW*ABS(SWI-1.) 

V01*VAl 

V02«VA2 

V03*VA3 

V04*VA4 

IP(SW.GT.0.5)V01«VB1 

IFCSW.GT,0.5)V02«VB2 

IF (SW  »GT.O .5 ) V03*VB3 

IF(SW.GT.0.5)V04«VB4 

RETURN 

END 


-  : 


j 
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LISTING  FOR  SUBROUTINE  S2 


SUBROUTINE  S2 (FX3 , FY3, FZ3 , AL3 , AM3 ,AN3, PXl ,FY1 , FZ  I, AL1 ,AM1 , AN1 
1  FX2,FY2,FZ2, AL2,AM2,AN2) 

VERSION  l.  REVISEO:  MAY  21  1976 

PURPOSE:  SUM  TWO  SETS  OF  3  AXIS  FORCES  AN 0  MOMENTS 
CALL  SEQUENCE: 

tiamiiiHis  OUTPUTS  maatunasss 
FX3»FY3*FZ3  -  SUM  OF  FORCES 

AL3* AM3» AN3  -  SUM  OF  MOMENTS 

aassssasssaxx  INPUTS  sssssxsasssaass 

FXI »FYI»FZI  -  FORCES  INPUT  PORT  l 

AL1 t AMI f AN I  -  MOMENTS  INPUT  PORT  1 

FX2fFY2,FZ2  -  FORCES  INPUT  P0RT2 

AL2* AM2 * AN2  -  MOMENTS  INPUT  PORT  2 

OSSIGNEO  BY:  J.O.  BURROUGHS  MAY  1976 


FX3*FX1»FX2 

FY3-FYI+FY2 

FZ3»FZ1>FZ2 


SUM  MOMENTS 


AL3»AL1*AL2 

AM3»AM1+AM2 

AN3*AN1+AN2 

RETURN 

5N0 


Table  225:  LISTING  FOR  SUBROUTINE  S3 


CS3 

SUBROUTINE  S3  (FX4,FY4,FZ4,AL4,AM4,AN4*FX1  *FY1  ,FZ1,AL1  ,Artl  f  ANl , 
1  FX2,FY2,FZ2tAL2,AM2,AN2,FX3.FY3,FZ3,AL3tAM3,AN3> 

C  VERSION  I.  REVISED*  MAY  21  1976 

C  PURPOSE *  SUM  THREE  SETS  OF  3  AXIS  FORCES  ANO  MOMENTS 
C  CALL  SEQUENCE* 

C  ininunni  OUTPUTS  MiianunaM 

C  PX4,FY4tFZ4  -  SUM  OF  FORCES 

C  AL4»AM4,AN6  -  SUM  OF  MOMENTS 

C  »»»»■■»»**»**  INPUTS 

C  FX1 »FY1»PZ1  -  FORCES  INPUT  PORT  1 

C  A LI r AMI » ANl  -  MOMENTS  INPUT  PORT  1 

C  FX2»FY2»FZ2  -  FORCES  INPUT  P0RT2 

C  AL2»AM2 »AN2  -  MOMENTS  INPUT  PORT  2 

C  FZ3,FY3,FZ3  -  FORCES  INPUT  PORT 3 

C  AL3»AM3» AN3  -  MOMENTS  INPUT  PORT  3 

C  DESIGNED  BY*  J.D.  BURROUGHS  MAY  1976 

C 

C  sssssssaasxssaxs  SUM  FORCES  xxxxxxxxtxsxx 

FX 4»FX1+FX2+PX3 
FY4»FY1*FY2+FY3 
FZ4»FZH>FZ2+FZ3 

c  »»»»»» ***3»s»*B*  SUM  MOMENTS  xaxxaxsxaxxxx 
AL4*ALl*AL2*AL3 
AM*»AM1*AM2*AM3 
AN4*AN1+AN2+AN3 
RETURN 
END 


nnonnnnnononnnnnnnnnnnn 


Table  226:  LISTING  FOR  SUBROUTINE  TA 


CTA 

SUBROUTINE  TA ( A2T, 32T,C2T,D2T,A2 ,B2 ,C2 ,02 > 

PURPOSE  -  TO  PROVIDE  CAPABILITY  TO  INPUT  VARIABLES  AS  FUNCTIONS 
OF  TIME 

M6TH00  -  TABLE  LOOK-UP  USES  1  DEGREE  INTERPOLATION 
AND  DOES  NOT  PERMIT  EXTRAPOLATION 


WRITTEN  BY  -  ADAM  LLOYO  LATEST  REVISION  NOV  75 


INPUT/OUTPUT  LIST 


A2T 

TABULAR  INPUT 

OF 

VARIABLE 

A2 

ANY 

INPUT 

TA3LE 

B2T 

TABULAR  INPUT 

OF 

VARIABLE 

82 

ANY 

INPUT 

TA8LE 

C2T 

TABULAR  INPUT 

OF 

VARIABLE 

C2 

ANY 

INPUT 

TABLE 

02T 

TABULAR  INPUT 

OF 

VARIABLE 

02 

ANY 

INPUT 

TABLE 

ABOVE  TABLES 

ARE 

ALL  ONE  1 

DIMENSIONAL 

WITH, TIME  AS 

INDEPENDENT  ' 

VARIABLE 

A2 

VARIABLE  A2 

ANY 

OUTPUT 

VAR 

32 

VARIABLE  B2 

ANY 

OUTPUT 

VAR 

C2 

VARIABLE  C2 

ANY 

OUTPUT 

VAR 

02 

VARIABLE  02 

ANY 

OUTPUT 

VAR 

DIMENSION  A2T(1),B2T(1),C2T(1),02T(I) 

COMMON/CTIME/TIMS 

NA«A2T(2) 

NB»82TC2) 

NC»C2T(2) 

ND*02T(2) 

A2*T8LU1I TIME  » A2T( 4) »A2T(NA+4) , 1 NA ) 
B2*TBLUHTIME  »82T(4),B2T(NB+4),l,-NB) 
C2*TBLUl( TIME  »C2T ( 4) »C2T( NC+4) ,1,-NC) 
02»TBLU1  ( T IME  ,02T(  4) , 02T ( N0«-4 ) ,  I , -NO ) 
RETURN 
ENO 
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Table  227:  LISTING  FOR  SUBROUTINE  TB 


SUBROUTINE  TB ( A2T , 3  2T » A2 *  B2 ) 


C  PURPOSE  -  TO  PROVIDE  CAPABILITY  TO  INPUT  VARIABLES  AS  FUNCTIONS 
C  OF  TIME 


C  METHOO  -  TABLE  LOOK-UP  USES  1  DEGREE  INTERPOLATION 
C  ANO  DOES  NOT  PERMIT  EXTRAPOLATION 


LATEST  REVISION 


C  WRITTEN  BY 


AOAM  LLOYD 


C  INPUT/OUTPUT  LIST 


T  TABULAR  INPUT  OF  VARIABLE  A2  A 

T  TABULAR  INPUT  OF  VARIABLE  02  A; 

ABOVE  TABLES  ARE  ALL  ONE  DIMENSIONAL 
WITH  TIME  AS  INDEPENDENT  VARIABLE 
VARIABLE  A2  A 

VARIABLE  B2  A 

COMMON/CTIME/TIME 
DIMENSION  A2TI  1) »B2T( 1) 

NA»A2T(2> 

NB«B2T<2> 

A2-TBLU1! TIME *A2T( 4) »  A2T ( NA+4) 1 1 »— NA ) 
B2*TBLUH  TIME  »82T(  4)  ,  B2T  t  NB*4> , 1 ,-NB  > 

RETURN 

ENO 


INPUT  TABLE 
INPUT  TABLE 


OUTPUT  VAR 
OUTPUT  VAR 


Table  228:  LISTING  FOR  SUBROUTINE  TBL1 


CTBLl 


FUNCTION  T3L1(PR,AZ0,DPR,NPTS,IS ,NA> 


PURPOSE 

T8LI  PERFORMS  LINEAR  INTERPOLATION  ON  1  INDEPENDENT  VARIABLE 


C  WRITTEN  BY  J.R.KILNER 


USED  ONLY  BY  COMPONENT  TK 


C  LIMITATIONS 


C  FOR  INPUTS  ANO  OUTPUTS  SEE  FUNCTION  TBL2 


DIMENSION  AZO (NA, 1 ) 


IFtPR.LE.O.)  GO  TO  10 
RMAX=OPR* ( NPTS-1 ) 

IF(PR.GE.RMAX )  GO  TO  20 

II*PR*NPTS 

I-IIM 

TBL1*(AZ0(  X+1»XS)-AZ0(I«IS)  >* (PR-OPR*I I ) /OPR+AZO <  I,  IS) 
GO  TO  30 
TSL1=AZ0<  1»IS) 

GO  TO  30 

TBL1=AZ0( NPTS ♦ IS ) 


RETURN 

END 


oooooooonnnooooooooonon 


Table  229:  LISTING  FOR  SUBROUTINE  TBL2 


CTBL2 

FUNCTION  T3L2(PR,Z0,Z0FS,A,0PR,NPTS,IS  »NA > 

VERSION  1.  FEB.  1978 

WRITTEN  BV  J.R .KILNER 

LIMITATIONS  -  CALLED  ONLY  BY  COMPONENT  TK 
PURPOSE 

T8L2  PERFORMS  CURVILINEAR  TO  RECTILINEAR  TRANSFORMATION 
ANO  LINEAR  INTERPOLATION  ON  2  INDEPENDENT  VARIABLES 


INPUT  PARAMETERS 

PR  -  CUSHION  TO  TRUNK  PRESSURE  RATIO 

ZO  -  CUSHION  HEIGHT 

ZOFS  -  CUSHION  HEIGHT  (FREE  SHAPE) 

A  -  DEPENDENT  ARRAY 

DPR  -  STEP  CHANGE  IN  PC/PT 

NPTS  -  NUMBER  OF  ROW  OR  COLUMN  ELEMENTS  IN  A 

IS  -  OIGGES  PARAMETER  SET 

NA  -  ROW  ANO  COLUMN  DIMENSION  OF  A 


OUTPUT  PARAMETERS 

YO*  LI *L3  t AS y  ACV  ARRAYS  FOR  TRUNK  SHAPES 


DIMENSION  A(NA,NA,l) 

IF(PR.LE.O.)  GO  TO  10 
RMAX=OPR* ( NPTS-l ) 

IFCPR.GE.RMAX)  GO  TO  20 

i*pr*npts 
1*1*1 
PR2*PR 
GO  TO  30 
I =NPTS-1 
PR2*RMAX 
ZB*ZO/ZOFS 

IF (ZO.GE.ZCFS )GOTQ  40 

IF(ZB.LE.DPR)  GO  TO  50 

JX*ZB*NPTS 

GO  TO  60 

JX*1 

ZB-OPR 

J*NPTS— JX 
DZ*ZB-OPR* JX 
DP=PR2— DPR*( I— 1 ) 

A1*(A(I,J, IS)-A(I,J*1,IS) )*OZ/DPR*A ( I»  J* 1 » IS ) 
A2*(A(I*1,J,IS)-A( I*1,J*1,IS) )*OZ/OPR*A( I*1»J*1»IS) 
T3L2* ( A2— A  1 ) *0 P/D PR* A 1 
GOTO  99 

IF (ZO.Gc.ZOFS )GOTO  12 
Z3*Z0/ZCF$ 

IF(ZB.LE.OPR)  GOTO  1* 

JX*Z9*NPTS 


. 


r 
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Table  229:  LISTING  FOR  SUBROUTINE  TBL2  (CONCLUDED) 


JaNPTS-JX 

DZ=ZB-OPR*JX 

TBL2= (A(l»JtIS)— AlltJ+ltlS) > *OZ/OPR*A< l.J+l.IS) 
SOTO  99 

TBL2«A(1»1»IS) 

GOTO  99 

TBL2*A(l,NPTStIS) 

GOTO  99 

DP=PR2-OPR*<I-l) 

TBL2*( A (I+1»1»IS)-A(I f 1 r IS ) ) *DP/DPR+A ( I,1»IS) 

RETURN 

ENO 


nonnonooonnooooooonooooooo 


Table  230:  LISTING  FOR  SUBROUTINE  TBLUI 


CT5LU1 

FUNCTION  T 3LU 1  (  X  1 ,  X ,F1,NDX,NX) 

****** 

PURPOSE 

TBLUI  PERFORMS  TABLE  SEARCH  AND  LAGRANGI AN  POLYNOMIAL 
INTERPOLATION  OF  USER-OEFINED  06GR6E  ON  I  INDEPENDENT 
VARIABLE 
USAGE 

DIMENSION  X ( NX ) ,F1 ( NX ) 

V  =  T8LU1(X1,X»  F  I»NOX*  NX  ) 

INPUT  PARAMETERS 

XI  -  POINT  TO  INTERPOLATE  FOR 
X  -  INDEPENDENT  VARIABLE  ARRAY 
FI  -  OE PENOENT  VARIABLE  ARRAY 
NOX  -  DEGREE  OF  INTERPOLATION 

NX  -  IABS(NX)  IS  THE  NUMBER  OF  DATA  POINTS  IN  THE  X  ARRAY. 
IF  NEGATIVE,  NEAREST  ENO  POINT  IS  TO  BE  USED  UPON 
EXTRAPOLATION 
OUTPUT  PARAMETER 

V  -  RESULT  OF  TABLE  SEARCH  ANO  INTERPOLATION 

SUCCESS  V  =  INTERPOLATED  VALUE 

ERROR  V  =  INDEFINITE  VALUE  WHERE  RIGHTMOST  DIGIT 
DEFINES  THE  ERROR  DETECTED 

1  DATA  VALUES  WITHIN  X  ARE  NOT  DISTINCT 

2  NOX  IS  LESS  THAN  ZERO 

3  NX  IS  ZERO 

****** 

DIMENSION  X(1),Y(1),F1(1) 

INTEGER  SEARCH 

DATA  ERR2/ 177700 00 OCOOOOO 0000 28/ 

DATA  ERR3/ 177700000000000000038/ 

C  TEST  FOR  USER  ERRORS 

100  TBLUI  *  0 

IF  (NOX.LT.O)  TBLUI  *  ERR2 
IF  (NX.EO.O)  TBLUI  =  ERR3 
IF  (TBLUI. NE.O)  GO  TO  210 
C  SEARCH  FOR  XI  ANO  TEST  FOR  EXACTNESS 

MO  X  *  NDX 

IF ( SEARCH (Xl,X,MDX,NXyI) . 5Q.0 )  GO  TO  200 
TBLUI  =  FI ( I ) 

GO  TO  210 

C  INTERPOLATE 

200  TBLUI  *  TERP1 (XI , X , FI , MOX , I ) 

210  RETURN 
END 
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Table  231:  LISTING  FOR  SUBROUTINE  T8LU2 


CTBLU2 

FUNCTION  TBLU2(X1,Y1,X,Y,F2,NDX,NDY,NX,NY,MX,MY) 

0****** 

PURPOSE 

TBLU2  PERFORMS  TABLE  SEARCH  AND  LAGRANGIAN  POLYNOMIAL 
INTERPOLATION  OF  USER-OEFINEO  DEGREE  ON  2  INOEPENOENT 
VARIABLES 
USAGE 

01 MENS  ION  X (NX ) »Y( NY ) » F2 ( MX»M Y) 

V  =  TBLU2(X1,YI,X,Y,F2,N0X,NDY,NX,NY,MX,MY> 

INPUT  PARAMETERS 

XI, Y1  -  POINT  TO  INTERPOLATE  FOR 

X, Y  -  ARRAYS  OF  INDEPENDENT  VARIABLES 
F2  -  20  ARRAY  OF  DEPENOENT  VARIA8LE 
NDX,NDY  -  DEGREE  OF  INTERPOLATION  FOR  EACH  DIMENSION 

NX, NY  -  IABS  OF  EACH  IS  THE  NUMBER  OF  OATA  POINTS  IN  THE 
RESPECTIVE  X  OR  Y  ARRAY.  IF  NEGATIVE,  NEAREST 
END  POINT  IS  TO  BE  USED  UPON  EXTRAPOLATION 
MX, MY  -  DIMENSIONAL  CONSTANTS  FOR  F2  ARRAY 
OUTPUT  PARAMETERS 

V  -  RESULT  OF  TABLE  SEARCH  ANO  INTERPOLATION 
SUCCESS  V  =  INTERPOLATED  VALUE 

ERROR  V  =  INDEFINITE  VALUE  WHERE  RIGHTMOST  DIGIT 
DEFINES  THE  ERROR  DETECTED 

1  DATA  VALUES  WITHIN  X  OR  Y  ARE  NOT  DISTINCT 

2  EITHER  NOX  OR  NDY  IS  LESS  THAN  ZERO 

3  EITHER  NX  OR  NY  IS  ZERO 

4  MX.LT.IABS (NX) 

****** 

DIMENSION  X( 1) ,Yl 1) ,F2(MX,MY) 

INTEGER  SEARCH 

DATA  ERR2/ 177700000000000000023/ 

DATA  ERR3/ 177700000000000000038/ 

DATA  ERR4/ 177700000000000000048/ 

C  TEST  FOR  USER  ERRORS 

100  T8LU2  »  0 

IF  ( (NDX.LT.O) .OR. (NDY.LT.O) )  TBLU2  =  ERR 2 
IF  ( (NX.EQ.O).OR.(NY.EQ.O))  T3LU2  =  ERR3 
IF  ( MX.LT • IABS (NX ) )  TBLU2  *  ERR4 
IF  (TBLU2.NE.0)  GO  TO  310 
C  SET  UP  INITIAL  PARAMETERS 

120  X2  =  XI 
Y2  =  Y1 
MDX  =  NOX 

MOY  =  NDY 

C  SEARCH  FOR  XI  ANO  Y1  IN  TABLES 

IX  =  SEARCH(X2,X,M0X,NX,I ) 

IY  =  SEARCH(Y2,Y,M0Y,NY,J) 

C  TEST  FOR  EXACTNESS  IN  1  OR  2  DIMENSIONS 

IW  =  IX*IY*-IY*1 
GO  TO  (300,210,220,200) ,IW 
200  TBLU2  *  F  2  ( I,  J  ) 

GO  TO  310 
210  X2  *  X  ( I  > 

MDX  =  0 


594 


oonnonnnonnonooonoooooonnnon 


♦ 


Table  232:  LISTING  FOR  SUBROUTINE  TBLU3 


CT3LU3 

FUNCTION  T3LU3(X1, Yl, Z1 , X , Y , Z , F3 , NDX ,NDY ,N0Z , NX , NY , NZ ,MX , MY ,MZ ) 
PURPOSE 

TSLU3  PERFORMS  TABLE  SEARCH  AND  LAGRANGI AN  POLYNOMIAL 
INTERPOLATION  OF  USER-OEFINED  DEGREE  ON  3  INDEPENDENT 
VARIABLES 
USAGE 

DIMENSION  X(NX> ,Y( NY) ,Z(NZ),F3 (MX.MY.MZ) 

V  *  TBLU3(X1, Yl, Zl, X.Y.Z.F3, NDX, NDY ,NDZ, NX, NY, NZ, MX.MY.MZ) 
INPUT  PARAMETERS 

X1,Y1,Z1  -  POINT  TO  INTERPOLATE  FOR 

X,Y,Z  -  ARRAYS  OF  INDEPENDENT  VARIABLES 
F3  -  3D  ARRAY  OF  DEPENDENT  VARIABLE 
NOX .NDY.NOZ  -  DEGREE  OF  INTERPOLATION  FOR  EACH  DIMENSION 
NX,NY,NZ  -  IABS  OF  EACH  IS  THE  NUMBER  OF  OATA  POINTS  IN 
THE  RESPECTIVE  X,  Y  OR  Z  ARRAY.  IF  NEGATIVE. 
NEAREST  ENO  POINT  IS  TO  BE  USED  UPON 
EXTRAPOLATION 

MX.MY.MZ  -  DIMENSIONAL  CONSTANTS  FOR  P3  ARRAY 
OUTPUT  PARAMETERS 

V  -  RESULT  OF  TABLE  SEARCH  AND  INTERPOLATION 
SUCCESS  V  =  INTERPOLATED  VALUE 

ERROR  V  =  INDEFINITE  VALUE  WHERE  RIGHTMOST  DIGIT 
DEFINES  THE  ERROR  DETECTED 

1  OATA  VALUES  WITHIN  X,  Y  OR  Z  ARE  NOT  DISTINCT 

2  ONE  OF  NDX .  NDY  OR  NOZ  IS  LESS  THAN  ZERO 

3  ONE  OF  NX,  NY  OR  NZ  IS  ZERO 

4  EITHER  MX.LT.IABS (NX)  OR  MY.LT. IABS (NY ) 

****** 

DIMENSION  X( 1), Y( 1  ),Z (l ),F3 (MX.MY.MZ) 

INTEGER  SEARCH 

OATA  ERR2/177 700000000000 00002B/ 

OATA  SRR3/ 177 70 000 000 0000 000 033/ 

OATA  ERR4/ 177700000000000000048/ 

C  TEST  FOR  USER  ERRORS 

100  TBLU3  *  0 

IF  ((NOX.LT.O).OR.(NOY.LT.O).OR. (N02.LT.0))  TBLU3  *  ERRZ 
IF  (  (NX.EQ.O).OR.(NY.EQ.O).OR.(NZ.EQ.O>)  TBLU3  *  ERR3 
IF  UMX.LT  IABS  (NX  ) )  .OR.  (  MY.LT.  IABS  ( NY  ) ) )  TBLU3  =ERR4 
IF  (TBLU3.NE.G)  GO  TO  310 
C  SET  UP  INITIAL  PARAMETERS 

120  X2  *  XI 
Y2  a  Y1 
Z2  *  Z1 
MDX  »  NOX 
MOY  a  NDY 
MDZ  *  NOZ 

C  SEARCH  FOR  XI,  Y1  AND  Z1  IN  TABLES 

IX  a  SEARCH(X 2, X . MDX » NX , I ) 

IY  a  SEARCH(Y2,Y,MDY,NY,J) 
rz  *  Sc ARC H( Z2»  Z.MOZ, NZ  »X ) 

C  TEST  FOR  EXACTNESS  IN  1  OR  MORE  DIMENSIONS 

IW  *  IX*IY>IZ 
IF  (IW.SQ.C)  GO  TO  3CC 


LISTING  FOR  SUBROUTINE  TBLU3  (CONCLUDED) 


IP  (IW.NE.3)  GO  TO  200 
TBLU3  «  P3( It J*K) 

GO  TO  310 

200  IP  (IX.EO.O)  GO  TO  210 

xz  »  xm 

MOX  ■  0 

210  IP  (IY.EQ.O)  GO  TO  220 
Y2  »  Y(J> 

MOY  *  0 

220  IF  (IZ.EQ.O)  GO  TO  300 
Z2  *  Z(K) 

MOZ  *  0 

INTERPOLATE 

300  T3LU3  »  TERP3(X2»Y2»Z2»X»Y »Z »F3» MOX »MOY *MDZ»MX,MY,MZ»I»J*K) 
310  RETURN 
END 


OOOOOOOOOOOOOOOOyuuODOOuOOOOOO 


Table  233:  LISTING  FOR  SUBROUTINE  TD 


CTO 

SUBROUTINE  TO ( V, VO , IV , P ,PD, I P , R , RD, IR , ROL ,ROLD , I ROL , 

1  YAW.YAWO, IYAW,YD,PDOT,ROOT,VOOT,TX,TZ ,XX I ,ZZ I ,XZI , PIT) 

VERSION  2.  SEPT. 29  1977 

PURPOSE  THREE  DEGREE  OF  FREEOOM  RIGID  BODY  EQUATIONS  OF  MOT ION ( LA T) 
METHOD  EULER  ANGLES 
CALL  SEQUENCE 
*****  OUTPUTS  ***** 

LINEAR  VELOCITIES  —  BOOY  AXES 

V,VD,IV  -  Y  AXIS  LINEAR  VELOCITY, ACCEL»INT  CONTROL,  FT/SEC 
ANGULAR  VELOCITIES  —  BODY  AXES 

P»PO,IP  -  X  AXIS  ANGULAR  VELOCITY,ACCEL,INT  CONTROL,  DEG/SEC 

R,RD»IR  -  2  AXIS  ANGULAR  VELOCITY , ACCEL, INT  CONTROL,  DEG/SEC 

EULER  ANGLES  —  EARTH  TO  BODY  -  YAW , PITCH .ROLL 
ROL.ROLD, IROL  -ROLL  ANGLE, RATE , INT  CONTROL, DEG 
YAW, YAWD, I YAW  -  YAW  ANGLE , RATE , INT  CONTROL, DEG 
POSITION  —  EARTH  AXES 

YD  -  Y  AXIS  LINEAR  VELOCITY,  FT/SEC 

ANGULAR  ACCELERATION  —  BOOY  AXES 

POOT  -  X  AXIS  ANGULAR  ACCELERA TION,  DEG/SEC2 

ROOT  -  Z  AXIS  ANGULAR  ACCELERATION,  DEG/SEC2 

*****  inputs  ***** 

LINEAR  ACCELERATION  —  BOOY  AXES 

VOOT  -  Y  AXIS  LINEAR  ACCELERATION,  FT/SEC2 

MOMENTS 

TX.TZ  -  X,Z  AXIS  TORQUES,  FTLBS 

MOMENTS  OF  INERTIA 

XXI, ZZI  -  X,Z  AXIS  MOMENTS  OF  INERTIA,  SLUG-FT2 

XZI  -  PROOUCT  OF  INERTIA,  SLUG-FT2 

EULER  ANGLE  —  EARTH  TO  BOOY  -  PITCH 
PIT  -  PITCH  ANGLE, OEG 

WRITTEN  BY  M.K.  WAHI  MARCH  1977 

DATA  RPD.OPR  /. 01745329, 57. 29578/ 

CP=COS(PIT*RPO> 

SP=SIN(PIT*RPO) 

CR=C0S(R0L*R«»0) 

SR=SINlROL*RPD) 

c  ****************  LINEAR  VELOCITY  EQUATIONS  *************** 

IF (IV.NE. 0  >VD=VOOT 

C  ****************  ANGULAR  VELOCITY  EQUATIONS  ************* 

IF ( XZI.NE.O..AND.XZI.N6.  .99999)  GO  TO  100 
IF ( IP.NE. 0 )PD* ( TX/XXI ) *OPR 
IF { IR .NE. 0) RD»( TZ/ZZI ) *OPR 
GO  TO  160 

100  IF(IP+IR.EQ.O)GO  TO  160 
TEM*ZZI/XZI 
01 V*XXI*TEM— XZZ 

IF (IP.NE. 0)P0  =  <  <TX*TEM+TZ)/DIV)*DPR 
TEM*XXt/XZI 

IF (IR.NE.O )R0*( (TX+TZ*TSM)/DIV)*OPR 
C  ****************  EULER  ANGLE  EQUATIONS  ************* 

160  IF(CP.NS.O.)PSIO»R*CR/CP 
IF(IYAW.NE.O)YAWO*PSIO 
IF ( IROL.NE  .0)R0LD*P^PSID*SP 

C  ****************  POSITION  EQUATIONS  ************** 


Table  233:  LISTING  FOR  SUBROUTINE  TD  (CONCLUDED) 


C  -  TEST  IF  X  AND  Y  (LATITUDE  AND  LONGITUDE)  ARE  BOTH  FROZEN 

SPSR*SP*SR 

CY»COS(YAW*RPO> 

SY«SIN(YAW*RPO) 

YD«  (CY«CR*SY*SPSR)*V 

C  ****************  ANGULAR  ACCELERATIONSt  FOR  OUTPUT  PURPOSES  ONLY)  **** 
PDOT-PD 
RDOT-RO 
RETURN 
ENO 
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Table  234:  LISTING  FOR  SUBROUTINE  TERRA 


CTERRA 

FUNCTION  TERRA(X» AMCDE, ANR,D,H»Z ) 

VERSION  1.  NOV. 21  1977 

PURPOSE  1.  TO  SIMULATE  A  ROUGH  TERRAIN  WITH  RANOOM  PROFILE 

2.  TO  SIMULATE  SINUSOIDAL  ANO  (1-COSINE)  BUMP  PROFILES. 

METHOD  1.  THE  VERTICAL  ELEVATION  IS  STORED  IN  TABULAR 
-  FORM  AS  A  FUNCTION  OF  POSITION. 

2.  DIRECT  EVALUTION  OF  TRIGONOMETERIC  EQN . 


**  INPUTS  ** 

IMOOE  -INDICATOR  FOR  TYPE  OF  SURFACE 

*0  — OEFINES  A  FLAT  SURFACE  OF  ZE=0. 

=1  -DEPINES  (1-COSINE)  OR  SINUSOIDAL  SURFACE 
*2  -OEFINES  PROFILE  IN  TABULAR  FORM 

FOR  IMOOE  *  l 

N  -NUMBER  OF  SEQUENTIAL  (1-COSINE)  BUMPS 

D  -LENGTH  OF  BUMP,  FEET 

H  -HEIGHT  OF  BUMP  (NEGATIVE  H  SPECIFIES  A  DIP), INCHES 

ANY  NUMBER  OF  SEQUENTIAL  (1-COSINE)  BUMPS  MAY  BE  SPECIFIED 
PROFILE  BEGINS  AT  EARTH  AXIS  ORIGIN 

CONTINUOUS  SINUSOID  IS  REPRESENTED  BY  A  LARGE  NUMBER  OF  * 

*  (1 -COSINE)  BUMPS 

FOR  IMOOE  =  2 

N  -NUMBER  OF  DATA  POINTS  IN  PROFILE  DEFINITION 

0  -INCREMENTAL  DISTANCE  BETWEEN  POINTS,  FEET 

H  -CONSTANT  ELEVATION  SCALING  FACTOR  ( ZBAR=H*Z ( XS  ) ) 

PROFILE  OATA  MUST  BE  SPECIFIED  AT  EVEN  INCREMENTS ( DL) 

LINEAR  INTERPOLATION  BETWEEN  POINTS 

ELEVATION  OUTSIOE  OF  DEFINED  REGION  IS  VALUE  OF  NEAREST  POINT 
Z(I)  -VECTOR  CONTAINING  ELEVATION  DEFINITION,  INCHES 

WRITTEN  BY  J.R.KILNER 
DIMENSION  Z(l) 

N1=ANR 
N2=ANR*3 
IMOOE*AMOOE 
XE=.08333*X 

IF ( IMOOE.EQ.O )  GO  TO  11 
C 

IF(IMODE.EQ.l)  GO  TO  ^ 

C 

IMl*XE/0 
I * IM1 *4 
C 

IF ( I .LT .4)  GO  TO  22 
C 

IP(I.GE.N2)  GO  TO  33 

XI=IM1*0 

DXaXE-Xl 

TERRA* ( (2 ( 1*1 )-Z( I ) )*QX/0*Z( I) )*H 
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Table  234:  LISTING  FOR  SUBROUTINE  TERRA  (CONCLUOEO) 


TERRA *0. 
GO  TO  99 


22  TERRA«Z(4)*H 
GO  TO  99 


33  TERRA«Z(N2)*H 
GO  TO  99 


IFCXE.LS.O..OR.XE.GE.N1*0)  GO  TO  11 
TERRA»0.5*H*< l.-C0S(6.2832*XE/D) ) 


CONTINUE 


RETURN 

END 
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Table  235:  LISTING  FOR  SUBROUTINE  TF 


CTF 

SUBROUTINE  TF ( XI , X 1DOT, IXl , FO» FODOT , IFO, FIN , 20 , Z I, PO , PI ) 

PURPOSE  -  TO  SIMULATE  A  SECOND  ORDER  TRANSFER  FUNCTION  WITH 
FIRST  OROER  NUMERATOR 

FO  Z1*S  ♦  ZO 


FIN  2 

S  ♦  PI*S*PO 


METHOD  -  SELF  EXPLANATORY 


LIMITATIONS 

-  NONE 

WRITTEN  BY 

ADAM  LLOYD 

LATEST  REVISION  NOV  75 

INPUT/OUTPUT  LIST 

XI 

INTERMEDIATE  STATE  VARIABLE 

ANY 

OUTPUT 

STATE 

X1DOT 

STATE  VARIABLE  DERIVATIVE 

ANY 

OUTPUT 

STATE 

1X1 

INTEGRATOR  CONTROL 

— 

PROGRAM 

1  VAR 

FO 

transfer  function  OUTPUT 

ANY 

OUTPUT 

state 

FODOT 

TRANSFER  FUNCTION  OUTPUT  DERIV. 

ANY 

OUTPUT 

STATE 

IFO 

INTEGRATOR  CONTROL 

— 

PROGRAM 

1  VAR 

FIN 

TRANSFER  FUNCTION  INPUT 

ANY 

INPUT 

VAR 

ZO 

NUMERATOR  COEFFICIENT 

ANY 

INPUT 

VAR 

Z1 

NUMERATOR  COEFFICIENT 

ANY 

INPUT 

VAR 

PO 

DENOMINATOR  COEFFICIENT 

1/SEC2 

INPUT 

VAR 

PI 

DENOMINATOR  COEFFICIENT 

1/SEC 

INPUT 

VAR 

COMMON/ CIO/ 1 R  EAO»lWRITE,IDIAG 

IFIIX1.NE.O)X1DOT=ZO*FIN-PO*FO 

IF(IFO.NE.O)FOOOT=Xl-*-Zl*FIN-Pl*FO 

RETURN 

END 
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Table  236:  LISTING  FOR  SUBROUTINE  TG 


CTG 

SUBROUTINE  TG ( FX ,F Y ,FZ,TX ,TY ,TZ ,Th ,GAMX, GAMY, GAM Z»XO, YO , ZO ) 
VERSION  1.  REVISEO:  SEPT  20  19766 

PURPOSES  TRANSFORM  ENGINE  THRUST  INTO  800Y  AXIS  FORCES  AND 
TORQUES 

CALL  SEQUENCE: 

******  OUTPUTS  ****** 

FX » FY *PZ  — X  # Y »Z  AXIS  FORCES  ABOUT  C.G.,  LBS 

TXtTYtTZ  -X,Y,Z  AXIS  TORQUES,  FT-LBS 

******  INPUTS  ****** 

TH  -ENGINE  THRUST  IN  LBS 

GAMX , GAMY , GAM Z  -X,Y,Z  AXIS  DIRECTION  COSINES 
X0« YO* ZO  -  THRUST  LOCATION  COMPONENTS  ,  FT 

OESIGNED  BY  A.W.  WARREN  SEPT.  1976 

FX*  TH*GAMX 
FY*  TH*GAMY 
FZ*  TH*GAMZ 
TX*  YO*FZ  -  ZO*FY 
TY*  ZO*FX  -  XO*FZ 
TZ*  XO*FY  -  YO*FX 

RETURN 
ENO 
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Table  237:  LISTING  FOR  SUBROUTINE  TK 


CTK 

SUBROUTINE  TKU3L,XYZ,DSM,IAL,REL,ZTR, 

1  FXT,F YT»FZT »  TXT,  TYT, T2T »  PT,  PTD  ,IPT « 

2  VT  »  VXD  »IVT»PC» PC 0,1  PC, VC,  VCD, I  VC, WTA  »WCA  » WTC  , 

3  ROL,PIT,YAW,X,ALT,U,V,W,PA,WCU,TCU»WTR,TTR,ANE,CDGAP, 

4  ANSET,ANPTS»BST,WLT,C0Hl,C0H2,CDA ,BSCG,WLCG,TAU,P,Q,R, 

5  AMQOE, ANR, 0L»H»DMP»  EPC ,VU  »CAV ) 

VERSION  6.  FES. 17  1978 

PURPOSE  -  TO  DEVELOP  AN  INELASTIC  TYPE  ACLS  TRUNK  M006L 

METHOD  THE  TRUNK  HAS  BEEN  DIVIDED  INTO  2*NE  SEGMENTS*  NE  ON  THE 
LEFT  HAND  SIDE  AND  NE  ON  THE  RIGHT  HAND  SIDE. 

MEMBRANE  MODEL 

CONCEPTIREF:  AFFDL-TR-71-50)  IS  USED  FOR  MOOELING  SIDE 
ELEMENTS  WHILE  FRONT  AND  AFT  ELEMENTS  ARE  MODELED  WITH  A 
USER  OPTION  FOR  ( A 1RESTRAINED  MEM8RANE  MOO  EL , ( B ) FRO  ZEN  SHAP 
MODEL.  BOTH  HAVE  TWO  ATTACHMENT  POINTS  ON  THE  FUSELAGE 

DIMENSION  A(6),B(6) , LO( 6 ) ,X AC  25 ) , YA( 25  I , ZA ( 25 ) , D< 25  ) ,S<25)  , 

*  BET (25) ,IS(25),AP(25),LP(25),LH<25) ,MU ( 25 ) , REL ( 1 ) 

DIMENSION  XBA125) *YBA(25)*ZBA(25)t  RA ( 25 ) ,ITYPE( 6) »SN8 (25) *  CSB ( 2  5) 
DIMENSION  ABL(I) , XYZ ( l ) , DSM ( 1 ) , I ALII ) 

DIMENSION  XMU(4) * ZTR 1 1 ) 

REAL  LO  ,  LP»LH,M*J  *  L3P  *L3*L1*IAL 

COMMON/ SECT/AZO ( 10,6)  , A  YO(  10, 10 ,6)  ,  AL 1  ( 10 , 10, 6 )  ,A  L3P  ( 10 , 1 0 , 6 )  , 

*  A L3 (10, 10, 6) ,AACV(10,10,6) ,AAS(10,10,6) 

COMMON/CIO/ IREAD , IWR ITE,IDIAG 
COMMON/CTIME/TIME 
COMMON/CXDOT /XO ( 1) 

COMMON/CDI FS/JST , KIN, TP 
COMMON/COVRLY/INST 

DATA  RG,N A, TEST 2/ 53 .34, 10,0./ 


CALL  SEQUENCE 

*****  INPUT  TABLES  OR  DATA  ARRAYS  ***** 

A, 8 »L0  -ARRAYS  OF  TRUNK  ELEMENT  DIMENSIONS?  ATTACH 

-POINT  SPACING, ATTACH  POINT  HEIGHT  AND 
-MEMBRANE  CIRCUMFERENCE  RESPECTIVELY,  INCHES 

ITYPE  -ARRAY  OF  INl>ZCATOR  FOR  TRUNK  ELEMENT  TYPE 

*0  -FROZEN  TRUNK  MOOEL 

*1  -MEMBRANE  TRUNK  MCOEL 


XA,YA,ZA  -ARRAYS  OF  COORDINATES  OF  TRUNK  ELEMENT 

-INBOARD  ATTACH  POINT,  INCHES 

BET  -ARRAY  OF  ELEMENT  ANGLES  ALSO  SPECIFIES  WHETHER 

-ELEMENT  IS  AN  ENO(FRON»AFT)  OR  A  SIOE  ELEMENT,  DEG 


0  -ARRAY  OF  ELEMENT  WIDTH,  INCHES 

S  -ARRAY  OF  ELEMENT  SCALING  FACTORS 
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Table  237:  LISTING  FOR  SUBROUTINE  TK  (CONTINUED) 


MU  -ARRAY  OF  ELEMENT  COEFICIENTS  OF  FRICTION 

-IN  X  ANO  Y  AXIS  RESPECTIVELY 

IS  -ARRAY  OF  PARAMETER  SET  NUMBERS  ASSOCIATED 

-WITH  EACH  ELEMENT 

AP  -ARRAY  OF  ORIFICE  AREA  PER  UNIT  AREA 

-(OR  POROSITY)  OF  TRUNK  SURFACE 
LP  -ARRAY  OF  CIRCUMFERENTIAL  DISTANCE  FROM  OUTBD 

-ATTACH  POINT  TO  BEGINNING  OF  PERFORATIONS,  INCHES 
LH  -ARRAY  OF  WIDTH  OF  PERFORATED  AREA,  INCHES 

REL  -RELIEF  VALVE  AREA  OPENING  AS  A  FUNCTION  OF 

-TRUNK  PRESSURE. ,ONE  DIM. TABLE, SQ .IN  VS  PSIA 

*****  OUTPUTS  ***** 

FXT  »FYT  »FZT  -X,Y,Z  AXIS, AXIAL, LATERAL  ANO  VERTICAL  FORCE 
-SUMMATION  TERMS,  LBS 

TXT, TYT »TZT  -X,Y,Z  AXIS  SUMMATION  TERMS  FOR  ROLL, PITCH, 

-ANO  YAW  MOMENTS,  FT-LB. 

PT , PTO, IPT  -TRUNK  PRESSORE,RATE,INT  CONTROL,  PSIA 

VT»VTD, IVT  -TRUNK  VOLUMt,RATE,lNT  CONTROL,  CU  FT 
PC,PCO,IPC  -CUHSION  PRESSURE, RATE, IN T  CONTROL,  PSIA 

vc,vco,ivc  -cushion  volume, rate, int  control,  cu  ft 

WTA  -AIR  FLOW  Rate, TRUNK  TO  ATMOSPHERE,  L3/MIN 

WCA  -air  flow  rate.cushicn  to  atmosphere,  LB/MIN 

wtc  -air  flow  rate,  trunk  to  cusion,  lb/min 

*****  INPUTS  ***** 

ROL , PIT , YAW  -ROLL, PITCH, YAW  EULER  ANGLES,  DEG 

X,ALT  -X,Z  EARTH  AXIS  POSITIONS 

U»V,W  — X, Y»  Z  BOOY  AXIS  LINEAR  VELOCITIES,  FT/SEC 

PA  -AMBIENT  PRESSURE,  PSIA 

WLU  -SUPPLY  AIR  FLOW  RATE  TO  CUSHION  CAVITY,  LB/MIN 

TCU  -TEMPERATURc  OF  WCU  AIR,  DEGR 

WTR  -SUPPLY  AIR  FLOW  RATE  TQ  TRUNK,  LB/MIN 

TTR  -TEMPERATURE  OF  WTR  AIR,  DEGR 

NE(ANE)  -NUMBER  OF  ELEMENTS  PER  TRUNK  SIOE 

-SYMMETRIC  MODEL  IF  ANE.LT. 0 
NSET  -NUMBER  OF  ELEMENT  SHAPES  OR  PARAM.  SETS 

CDGAP  -DISCHARGE  CQeFF.  FOR  FLOW  THROUGH  GAP 

-BETWEEN  TRUNK  ANO  GROUND 
CDA  -  DISCHARGE  COEFF.  FOR  FLOW  THROUGH 

-RELIEF  VALVE 

NPTS  -NO.  OF  ELEMENTS  IN  A  ROW  OR  COLUMN  IN  THE 

-  PARAMETER  SET 

BST, WLT  -BODY  STATION  ANO  WATER  LINE  OF  TRUNK  AXIS,  INCHES 

CDH1  -ORIFICE  DISCHARGE  COEFFICIENT  FOR  FREE 

-PORTION  OP  TRUNK 

C0H2  -ORIFICE  DISCHARGE  COEFFICIENT  FOR  TRUNK  AREA 

-IN  CONTACT  WITH  THE  GROUND 

3 SCO  ,WLCG  -BUOY  STATION  ANO  WATER  LINE  OF  C.G.,  INCHES 

TaU  -TIME  CONSTANT  FOR  TRUNK  ANO  CUSHION  VOLUME 

-RATE  OF  CHANGE,  SEC 

P,U,R  —A, Y, Z  BOOY  AXIS  ANGULAR  VELOCITIES, DEG/SEC 

AMOOE,ANR,DL,H-TERRaIN  MODEL  PARAMETERS, SEE  FUNCTION  TERRA 
OMP  — 0 AMPING  COEFFICIENT  AS  A  FUNCTION  OF 
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Table  237: 


LISTING  FOR  SUBROUTINE  TK  (CONTINUED) 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


ePC 

vu 

Lav 


-FL aTT cNED  AREA,  LB-SEC/IN./SO  IN. 

-PRINT  CONTROL,  £?C  =  l.  PRINT  ELEMENT  VARIABLE 
—VALUES  EVERY  PRINT  INTERVAL 
-BRcAK  PGINI  IN  MU-VELOCITY  CURVc, IN/SEC 
EFFELTIVt  AREA  FOR  TRUNK  TO  CUSHION  VcNT,iO  IN 


***  CONSTANTS  *** 
RG=S3.34 


■gas  constant  for  air,  ft-lb/ls/degr 


WRITTEN  8Y  j.R.KILNcR  AND  M.K.HAHi 


INITIAL  CALCULATIONS  AND  E  EMENT  SECTION  PROPERTY 
PARAMETtR  DATA  CALCULATED  TIME=0 
IF  INPUT  DATA  ARE  UPDATED 

IF ( T IME .NE .0. ) GOTO  11 


NSET=AN  SET 
NE= aoS ( ANE ) 
NPTS=ANPIS 
NSET2=4*NS£T*3 
T  EST =0. 

DC  V  I=*,NSET2 
TfcST=TEST*AbL( I) 


Nc2=4*NE*3 
DO  6  1=4, NE2 
T  EST=TEST*XYZ(I J  +IAL (I ) 


NE3=3*NE+3 
CO  7  I=*»»NE3 
TEST=T£ST*DSM(I) 

IF ( TEST .fcy. TEST2 ) GO  TO  II 
T  EST  2=TEST 


MS=2 

1F(ANE.LT.U.)MS=I 

r 

w 

00  10  I =1,NS£T 
A  ( I )  =AS  L  (  4*  I  ) 
b  ( I )  =AB  L  ( 4*  I  ♦  1 ) 
L0(I)=AbLl4*I+2) 
ITYPE(Il=AbL(**I*3) 
10  CONTINUE 
C 

DO  2c  1=1, NE 

10=1*3 

I-»=i*A 

X*{ 1»=XYZ(I4) 

YA(X  J*AYZ(I«**ll 
ZA( I )=X Y2( 14*2) 

3d'  (  2  J=XYZ  (  W*3> 
um=oSMii3«-i> 
iUl=DSMi  13*21 
Mu 11) =C3M ( 1 3*3 ) 
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Table  237:  LISTING  FOR  SUBROUTINE  TK  (CONTINUED) 


IS(I>»IAL(I4> 

AP<I)=IAL<I4-H1 

LPCI)*IAL(I**2) 

LHC  I )=1AL( 14+3) 

C 

XBAC II*  8SCG—SST+XA( 1 ) 

YBA4 1)=  YA(l) 

IBA(I)*  WLCG-WLT +2A(  1 1 

C 

SNB(I)=SIN< .01745*BET(I )) 

CSBC I)=COSC .01745+ttETCI ) ) 

RAC  I J  =Y A ( I ) /CStJ 1 1 ) 

20  CONTINUE 
C 

0SUM=0. 

00  25  1=1, NE 
25  0SUM=0SUM+0(1) 

DSUM=0SUM*2 . 

C 

XMU ( 1 )  =  0 • 

XMU(2)=VU 
XMU  <  3 )  =  C . 

XMUl4)=l. 

c 

c 

WRITE (I WRITE, 6000 ) 

WRITE 11 WRITE >6002 )(1,XA(1),YA(I),ZA(I),RA(I),BET(1) ,0(I),SCI), 

*  HU (I) ,IS(I),AP(i) ,LP(I),LH<1),1=L,NE) 

6000  PORHATC 1H1,31H*****  TRUNK  PARAMETER  DATA  **«*,16( 5H*»»**)//// 

*  37H  ELEMENT  XA  YA  2A, 

*  oX, 23HRA  BET  0  S, 

*  oX, 32H  MU  IS  AP  LP  LH/i 

6002  F0RMAT(4X,I2,2X,4Fl0.2,F3.2,P7.2,F3.3,F8.3,I4,F9.5t2P7.I/) 

C 

CALL  IC(NSET,NPTS*ITYPE,A,B,LO,OPR) 

C 

11  CONTINUE 
C 
C 

C  INITIALIZATION  FOR  LOOP  ITERATION 

C 

AGAP=0. 

FXT  =0. 

FYT  =0. 

FIT =0- 
TXT  =0. 

TYT  *0. 

TZT  =0. 

vcs  =0. 

VTS  =0. 

A HA 1=0* 

AHA2  =0. 

AHCi«0. 

AMC2=G. 

C 

CR=COS(  .0l7*»5*RCLi 
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Table  237:  LISTING  FOR  SUBROUTINE  TK  (CONTINUED) 


CP*CQS( .017*5*PIT) 

CY=COS( . 0 17*5*YAW ) 

SR=SIN(  .0i7*5*RUL) 

S?*SIN<  .G17*5*PIT) 

SY*S1N< .017*5*YAW) 

C 

CPCY=CP*CY 
CRSY*CR*SY 
SRSPCY*  SR*S  P^C.  Y 
SYSR*SY*SR 
CYCRSP=CY*CR*SP 
CPSR=CP*SR 
CRCP=CR*CP 
SPSR=SP*SR 
SPCR*SP*CR 
C 

Pl=P*. 017*5 
Ul=g*. 017*5 
R1=R*.GI7*5 
C 

Ul=U«12. 

Vl=V*l 2. 

W1*W*12. 

C 

C  **  M=1  FOR  RIGHT  HAND  SIDE 

C  »*  M=  2  FOR  LfcFT  HAND  SIDE  ** 

C  **  I=TRUNK  ELEMENT  NUMBER  ** 

C  **  E=  *1  WHEN  M*  ( RHS ) 

C  **  E*  -1  WHEN  N=2  ( LHS ) 

C 

OQ  30  M=I»MS 

E*l. 

IF  ( M .£0 . 2  )  E*-l. 

DO  30  1*1, NE 

C 

C  *»  TEST  FOR  SIDE  OR  END  ELEMENT  AND  CALCULATE  CUSHION- 
C  **  -TO-  TRUNK  PRESSURE  RATIO 
PR  *0. 

IF(BET( I) .cQ.O.)  PR*  t  PC— PA )/ (PT-PA ) 

**  FS  REFERS  TO  FREE  SHAPE  VALUES  WHICH  ARE  FUNCTION  OF  ONLY  PR 

ZQFSU  *  TBLKPRtAZQ, DPR  ,NPTS, IS  ( I) ,NA) 

ZOFS  =S(I)*ZOFSU 

YOFS  *S(I)*T&L2lPR,Z0FSU,Z0FSU,AY0,0PR,NPTSfIS(I) ,NA) 


X8T*a8A ( I ) * YCFS*SNB ( I i 
YBT*6*< YBa( l)fYOFS*CSB{ IJ ) 

Z8T=Z8A ( I ) ♦ZOFS 

DETERMINE  X  AND  Z  POSITION  OF  POINT  T  IN  EARTH  COORDINATES 

XET*X*1 2  •♦■XaTWCPCY+YBT*  ( SR SPCY-CRS  Y )  ♦ZBT* ( S YSR+CYCRSP) 
ZET*-ALT*12 .-X3T*SP*YBT*CPSR*Z&  I*CRCP 
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Table  237:  LISTING  FOR  SUBROUTINE  TK  (CONTINUED) 


QETERMI NE  TERRAIN  ELEVATION  AT  POINT  T 

ZEG  =TERRA l XET, AMGOE » ANR ,0L  ,H»  ZTR) 

CALCULATE  TRUNK-GROUND  GAP  hfclGHT • 

NEGATIVE  GAP  IMPLIES  A  LOADED  TRUNK 

ZGAPs-ZEG-ZET 

ZO=ZuFS«-ZGAP 

IF l ZGAP.GT.O.)  GO  TO  44 

LOADED  SHAPES 

CALCULATE  TRUNK  ELEMENT  DIMENSIONS  AND  AREAS  FOR  A 
LQAOcD  SHAPE 

zou=zo/sm 

Yu=S ( i ) *T3L2(PR, ZCU,ZOFSU, A YO ,OPR»NPTS  ,  IS ( I ) ,NA ) 

Ll-S ( I) »TBL2(PR ,  ZOU*ZOFsU, AL1 »DPR»NPTS»IS(I),NA) 

L5sS  tl ) *TBL2(PR»  Z0U»Z0FSU,AL3,DPR,NPTS,I S ( 1 ) ,NA ) 

L3P=L3 

iT=ism 

IFUTYP6<lT).cQ.0)L3P=Sm*TBL2(PR,ZGU,ZQFSU, 

*  AL3P» OPR.NPTStlSl I) »NA> 

AS=Sll)*$|I)*TBL2(PR»Z0UfZ0FSU»AAS,DPR,NPTS,IS(I>  »NA) 
ACV=S(I  )*Sm*TBL2(PR,Z0U,ZGFSU,AACV,DPR,NPTS,IS(I>  ,NA) 

TRUNK  GROUNO  REACTION 

AT=Q(I)*L3 
FTBAR=( PT— PA)*AT 

OETcRMlNE  VELOCITY  OF  POINT  T  RELATIVE  TO  EARTH 
WITH  X  ANO  Y  COMPONENTS  ORIENTED  TO  BODY  AXIS 

XbT=XoA (II ♦ ( Y0*0 . 5*L3 I *SNB ( I ) 

YBT=e*( YBa( !)♦( Y0-K).5*L3  )*CS8 (II) 

ZB  T  -ZbA  ( I )  +  ZO 

XBTU«  ZBT*Q1-Y8T*R1+Ul 
YbTD»-ZBT*Pl>X8T*Rl>Vl 
ZfiTD*  Y&T*P1-XBT*Q1*W1 

XTD2»XBTD*CP-*-YBT0*SPSR+ZSTD*SPCR 

YT02*YBTD*CR-ZSTD*SR 

ZTDs-xaTDWjPfYBTOwCPSR+ZBTDWCRCP 

VkT*SCRT(XT02*XTD2+YTD2*YTD2) 


CALCULATE  ELcMENT  FRICTION  FORCES 

IF ( VET. EG. 0. 1  GO  TO  34 

CTO*MU( 1 1 «TBLUI l VtT.XMU »XHU( 31 , 1,-2) 

UTX*UT0*X TO 2/VET 

uTY»uT0*YT02/VET 
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Table  237:  LISTING  FOR  SUBROUTINE  TK  (CONTINUED) 


GO  TO  36 
34  UTX=0. 

UTY=0. 

36  CONTINUE 
C 

FFXBAR=-UTX*FTBaR 

FFYBAR=—UTY*FTBAR 

C 

C  **  CALCULATE  ELEMENT  DAMPING  FORCE 
C 

FD8AR=0MP*AT*ZTD 

C  **  CALCULATE  FORCcS  AND  MOMENTS 
C 

c 

FXT =FXT ♦FFXBAR 
FYT*FYTfFFY6AR 
FZT=FZT-FTBAR-FDBAR 

TXT*TXT>(— ( FTBaR+FOBAR ) *Y8T—FFYBAR*ZBT ) *.08333 
TYT*TYT»  l  ( FTBAR+F08AR)  *ABT-*>FFXBAR*ZBT )  *  .0*333 
TZT=TZT-MFFYBAR*XBT-FFX&AR*YaT)*.08333 
GO  TO  66 
C 

C  CALCULATE  TRUNK  ELEMENT  DIMENSION  AND  AREAS  FOR  FREE  SHAPE 
C 

44  CONTINUE 

A&AP=AGAP+ZGAP*0 ( 1 ) 

YO=S (i l*T8L2(PR» ZOFSU»ZOFSUt A YOtOPRf NPTS  »IS (I ) »NA ) 
LI=S(I)*TBL2(PR,ZGFSU,ZGFSUtALl,DPR,NPTS#IS(I) tNA) 

AS=S (I)*S( I )*T8L2 ( PR tZOFSU tZOFSUt AAS*DPR»NPTSt 1S( I) tNA) 
ACV*SII  »*S(I)*TBL2tPR,Z0FSUtZ0FSU» AACV.OPR.NPTS.ISd)  tNA) 
FFXBAR-G. 

FFYBAR=0. 

FD8AR-0. 

ftbar=o. 

L3=0. 

66  CONTINUE 
C 

C  TEST  FOR  END  OR  SIDE  ELEMENT 

IF(BETCI).EO.O.)  GO  TO  77 
C 

YBC=E*< YBACI)+(.6667*Y0-.3333*RAII) )*CS8(I) ) 

AC=.5*0  ( I )  *  ( YO+RA 1 1 )  )  **2/ 1 YOFS+RAU  )  ) 

VCS=VCS*(Z0*AC-O<l)*ACY*(.5*YC'*-KA<I)  )/( YO^RAU)  )  >*.0005787 
GO  TO  88 
C 

77  CONTINUE 

YBC=0.5*E*( YBA ( i ) +Y0 ) 

AC*0 ( l) *1 YA  C I ) »Y0 ) 

VCS=VCSf<Z0*AC-0( i)*ACV >*.0005787 
38  CONTINUE 
C 

VTS*VTS^D( I )*AS*. C005787 
C 

X8C*XBA (I) ♦ ( ,6667*Y0-.3333*RA ( I ) )*SNo (I) 

FCBARs  tPC-PAi*AC 
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Table  237:  LISTING  FOR  SUBROUTINE  TK  (CONTINUED) 


FiT*FZT-FC*AR 

7X7=  fXT-FCflAR*YaC  *.06333 

TYT=TYT*F0oAR*X3C*.G6333 


IFt AP(I  )  .NE.O.  )  CALL  PERFt  ZGAP»Ll»L3»L3P  »LP  11 )  »LH(  l )  »RA( I )  »YO, 
Y0Fa»0(I  I»aP(1j»PT»PC«PA,&ET(  2)  »ArtAi  ,AHA2 ,  AHC2  >  AhCI  ) 


I F ( EPC. tC. 1 « JCALL  VPRiNTU,I,MfMS*NE,ZGA?,ZU,Y0,Ll.L3»VTStV0S, 
FFXbAR, FF  YB  AR  »  FU6AR  » FTbaR* FOBAR  »  AGAP) 

CONTINUE 


c  oaloulaTc  flow  rates 


CaCa=COGAP*AGaP 

CATA=C0Hi.*AhAl*.6667*CCH2*ArtA2 

CATC=CDHl*AfiCi*.6o67*CQH2*AnC2«-CAV 


C  **  TEST  FOR  SYMMETRIC  MODEL 


IF( ANE.GT .U . )GUi  G  166 

FXT=2.*FXT 

FYT=0« 

FZT=2.*FZT 

TX7=0- 

TY7=2.*TYT 

TZT=C. 

VCS=2.*VCS 

VTS=2.*VTS 

CAOA=2.*CAOA 

CATA=2.*CATA 

CaTC=2.*CaTC 

CONTINUE 


*«  CALCULATE  RELIEF  VALVE  AR=a 


N*R£L(2 ) 

ARcL  *  TSLUUPT-PAtRcL(4), RELINK) 
C AT A=C A TA*CQA*AR  £  L 


C  **  CALCULATE  LUSHUN  VOLUME  RATc  CF  CHANGE 


IF( I VC.Ne.Q )  VCD=(VCS-VC)/TAU 


C  *=  CALCULATE  TRUNK  AIR  VOLUME  RATE  CF  CHANGE 


XF(IVT.Nc.U)  VTO* ( VTS—V T ) / f  AU 


Call  r$FLC*»PCfFA,TCU»CACA , 1. rFN,SFN, RCA ) 
CaLL  FNFlOh (PT*PA#TTRfCATA» 1.»FN»*Ta) 

Call  Fi\»FLCM(PT#?Cf  TTR»CaTC»  1.  »FN»ATC) 


C  **  CALCucATE  CUSHION  PRESSURE  RATE  OF  CnANGE 
C  ***  InTaGRaTE  CuSniuN  PRESScRc  *** 


PCG1=<  .Q&u1269*RG*TCU*UCU**TC-*Ca)-1.2*PC*VCC)/VC 


o  n  n  r> 


Table  237:  LISTING  FOR  SUBROUTINE  TK  (CONCLUDED) 


IFC iPC.NE.G)PCO*PCOI 

**  CALCULATE  TRUNK  AIR  PRESSURE  RATE  CF  CHANGc 
**«  INTEGRATE  TRUNK  PRESSURE  *** 

IF(IPT.NE.0)PT0  =  (.C0QI3a9*R&*TTR^WTR-WTC-im)-1.2*PT*VTD>/VT 
C 

IFt cPC.EQ.l.ICALL  V PRINT  10*1 »M»MS»N£»IGAP,IO»YO »L I »  L3 , VTS » VCS t 
*  FFXBARt FFYBAR*  FOBAR,FTBAR t  FC3AR.AGAP) 

C 

RETURN 

ENO 
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Table  238:  LISTING  FOR  SUBROUTINE  Tl_ 


CTL 

SUBROUTINE  TL (U,UO, IU ,W, WO, Iw ,Q ,Q0, IQ, PIT ,PITD, I PIT,XO, 

1  2 «ZD  «IZ, QOOT »UOOT  » WDOT  »TY  » YY I »ROL»  YAW > 

VERSION  1.  APRIL  23,  1977. 

PURPOSE  THREE  OEGREE  OF  FREEDOM  RIGID  BODY  EQUATIONS  OF  MOTICN(LON) 
METHOD  EULER  ANGLES 
CALL  SEQUENCE 
*****  OUTPUTS  ***** 

LINEAR  VELOCITIES  —  BOOY  AXES 

U,UD ,IU  -  X  AXIS  LINEAR  VELOCITY, ACCEL, INT  CONTROL,  FT/SEC 

W.WO.IW  -  Z  AXIS  LINEAR  VELOCITY, ACCEL , INT  CONTROL,  FT/SEC 

ANGULAR  VELOCITIES  —  80DY  AXES 

Q ,QO, IQ  -  Y  AXIS  ANGULAR  VELOCITY .ACCEL , INT  CONTROL , DEG/SEC 
EULER  ANGLE  —  EARTH  TO  BODY  -  PITCH 

PIT.PITD.IPIT  -  PITCH  ANGLE, RATE, INT  CONTROL,  DEG 
POSITION  —  EARTH  AXES 

XO  -  X  AXIS  LINEAR  VELOCITY,  FT/SEC 

Z , ZD , IZ  - Z  AXIS  POSITION  (ALT) , VELOCITY, INT  CONTROL,  FT 

ANGULAR  ACCELERATION  —  BODY  AXES 

QOOT  -  Y  AXIS  ANGULAR  ACCELERATION,  DEG/SEC2 

****************  INPUTS  **************** 

LINEAR  ACCLERATIONS  —  BODY  AXES 

UOOT  -  X  AXIS  LINEAR  ACCELERATION,  FT/SEC2 

WDOT  -  Z  AXIS  LINEAR  ACCELERATION,  FT/SEC2 

MOMENTS 

TY  -  Y  AXIS  TORQUE,  FTLBS 

MOMENT  OF  INERTIA 

YYI  -  Y  AXIS  MOMENTS  OF  INERTIA,  SLUG-FT2 

EULER  ANGLES  —  EARTH  TO  BOOY  -  ROLL, YAW 

ROL  -  ROLL  ANGLE,  DEG 

YAW  -  YAW  ANGLE,  DEG 

WRITTEN  BY  MAHINOER  WAHI  APRIL  1977 

DATA  RPD.DPR  /.C1745329 ,57.29578/ 

CP=COS(PIT*RPD) 

SP=SIN(PIT*RPD) 

CR*CO$ I ROL*RPD } 

SR=SIN(ROL*RPD> 

Ql=Q*RPO 

****************  LINEAR  VELOCITY  EQUATIONS  ************ 

IF(IU.NE.O)UD*UOOT 
IF ( IW  »NE ,0 ) WO*WDOT 

****************  ANGULAR  VELOCITY  EQUATION  ************ 

IF  (IQ.NE,0)QD*(TY/YYI )*OPR 

****************  EULER  ANGLE  EQUATION  ************ 
IF(IPIT.NE.O)PITD*Q*CR 

****************  POSITION  EQUATIONS  *************** 

-  TEST  IF  X  AND  V  (LATITUDE  AND  LONGITUDE)  ARE  BOTH  3R0ZEN 

SPCR*SP*CR 
CY*COS ( YA W*RPD ) 

SY*SIN( YAW*RPQ ) 

XD*CY*CP«U* ( SY*SR*CY*SPCR ) *W 
IP(IZ.NE.O>ZO*SP*U-CP*CR*W 
C  **********  ANGULAR  ACCELERATION  (FOR  OUTPUT  PURPOSES  ONLY)  ***** 
QOOT*QD 
RETURN 


Table  239:  LISTING  FOR  SUBROUTINE  TR 


era 

SUBROUTINE  TR (PXE ,PYE ,PZE ,PX8»PY8*PZ3,ROL , PIT, YAW ) 

C~ VERSION  1  JULY  6  1977 

C 

C— PURPOSE  TRANSFORM  VECTOR  QUANTITIES  FROM  800Y  AXES  TO  EARTH  AXES 

C 

C — METHOO  MATRIX  MULTIPLICATION 

C 

C—CALL  SEQUENCE 
C  *****  OUTPUTS  ***** 

C  PXE»PYE*PZE  VECTOR  QUANTITIES  ALONG  EARTH  X,Y  AND  Z  AXES 

C  *****  INPUTS  ***** 

C  PX8*PYB*PZB  VECTOR  COMPONENS  OF  800Y  COORDINATE  SYSTEM 

C  ROL  »PIT » YAW  BOOY  ROLL , PITCH ,ANO  YAM  ANGLES 

C 

C  WRITTEN  8Y  J.J.MCAVOY  AND  M.K.WAHI 
C 

C  CONVERT  FROM  DEGREES  TO  RADIANS 
ROL=ROL/57.3 
PIT*PIT/57.3 
YAW*Y AW/5 7.3 

C - EARTH  LONG I TUO INAL  COMPONENT 

PXE*PX8*COS(PIT)*COS{YAW)+PY8*<-COS(ROL)*SIN(YAW>-*-$  IN  I  ROL)* 

2  SIN(PIT)*COS(YAW)  )>PZ8*(SIN<YAW)*SIN<ROL)«-COS< YAW) *COS I ROL >* 

3  S IN( PIT) ) 

C - EARTH  LATERAL  COMPONENT 

PYE=-PXB*COS(PIT)*SIN(YAW)-PYB*(COS(YAW)*COS(ROL)+SIN(YAW)* 

2  SIN(ROL)*SIN(PIT) )-PZB*(— COS ( YAW)*SIN (ROL) +SIN ( YAW )*COS< ROL) * 

3  S IN( PIT)  ) 

C - EARTH  VERTICAL  COMPONENT 

PZE=PX8*SIN(  PIT) -PYB*COS l PIT ) *SIN( ROL) —PZB*COS ( ROL)*CO$( PIT) 

RETURN 

ENO 
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Table  240:  LISTING  FOR  SUBROUTINE  TRUNK 


CT®UNK 

SUBROUTINE  TRUNK! I  SHAPE) 

C  TRUNK  GEOMETRY  CALCULATIONS 
REAL  L » LI  *  L2 * LS  *LP  .MASS 

C0MM0N/GE0MET/A,8,HYr,L,0,LS,LP,SH,NH,AH,NR,PHll,PHI2,Rl»R2,Ll,L2, 

lAi,A2»Xl,X2*HY 

COMMON/FLA  GS/ 1 CLN , 1 01 F , IF  LAG , I  ST  AT , I PP ,1 P  RV ,MM , N  STOP 
DATA  RTOL/O.Ol/ 

I*(HY.LE.C.O>  GO  TO  II 

C  *mm**mm***m*****m*********m****************  **********  Mr****************** 

C  ITERATION  FOR  R2 

C  COMPUTE  INNER  RADIUS  OF  CURVATURE 
R2*SQRT»A*A*0.25*HY*HY) 


C  ITERATION  LOOP  FOR  L2,LI,R1,R2 
00  10  1*1,50 

PH  I2*ABS«AC0S(AMAX1  (-1.0,  AM  INK  1.0,  <  <R2-HY)/R2) )  )> ) 

S  TNPH2*S IN( PHI2 ) 

C  COMPUTE  OUTER  RADIUS  OF  CURVATURE 

R  1*H  A— R2*SINPH2 ) **2-M 3*HY) **2 )/  ( 2.*(8*HY ) ) 

PH  II* A3S I A COS ( AMAX 1(-1.0»AMIN1(1.C,( (Rl-HY-B) /R1 ) ) ) ) ) 

X  S*A— R2*S INPH2 

IF  ( XS.LE  .0.0)  PHI 1*6.2831852— PHI! 

L2*L— PHI 1*RI 

C  R2S  IS  RESULTANT  RADIUS  FOR  COMPUTED  L2  IN  ITERATION 
IF(ABS(PHI2)  .LT.1.0E-2)  PHI2*l.0E-2 
R2S*L2/PH 12 

C  TEST  IF  TOLERANCE  .GT.  ERROR 

IF(ABS(R2-R2S».LE.RTOL)  GO  TO  50 
R2*(R2*R2S)*0.5 

10  CONTINUE 

C ********************************************  ********** *************** ***** 
C  ITERATED  50  TIMES  WITHOUT  SUCCESS ♦ ERROR  RETURN 

11  CONTINUE 

WRITE (6,9001 ) 

9001  FORMAT (10X,*  INFEASABLE  TRUNK  GEOMETRY  *//> 

ISHAP£*0 

RETURN 

C  TRUNK  OK, RETURN 
50  Li*L-L2 

ISHAPE*1 
RETURN 
ENO 
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Table  241:  LISTING  FOR  SUBROUTINE  TS 


CTS 

SUBROUTINE  TS ( ABL ,XYZ ,OM, I AL , END, SPH, STH, PM, RE L ,e*T ,ZTR , 

1  FXT,FYT,FZT,TXT,TYT,TZT,PT,PTD,IPT, 

2  VT,VTD,IVT,PC,PCD, IPC, VC , VCD , I VC, WT A, WCA , WTC, AREL, CPT , 

3  ROL,PIT,YAW,X,ALT,U,  V, W, PA,WCU, TCU, WTR , TTR , ANE ,CDGAP, 

4  COHl,CDH2,CDA,TAU,P,Q,R, 

5  DMP,EPC»VU»PTM»CaTV»SP5) 


VERSION  2.  REVISED  MAR.  1  1979 

WRITTEN  BY  G.S.DULEBA 

PURPOSE  -  TO  DEVELOP  AN  ELASTIC  TYPE  ACLS  TRUNK  MODEL 
METHOD  -  SEE  VOLUME  1 


ARGUMENT  LIST 

*****  INPUT  TABLES  OR  DATA  ARRAYS  ***** 

ABL  -ELEMENT  SET  DATA  ARRAY;  ATTACH  POINT  SPACING, 

ATTACH  POINT  HEIGHT,  MEMBRANE  INSTALLED  LENGTH, 
INITIAL  MERIDIAN  ANO  HOOP  STRAINS,  ANO  POISSONS 
RATIO 

XYZ  -ELEMENT  OATA  ARRAY;  X,Y,2  COORDINATES  OF  INBOARD 

ATTACH  POINT,  AND  ELEMENT  ANGLES 

DM  -ELEMENT  DATA  ARRAY;  ELEMENT  WIDTHS  AND  ELEMENT 

COEFFICIENTS  OF  FRICTION 

IAL  -ELEMENT  OATA  ARRAY;  ELEMENT  SET  NUMBERS  ASSOCIATED 

WITH  EACH  ELEMENT,  ORIFICE  AREA  PER  UNIT  AREA  OF 
TRUNK  SURFACE, 01  STANCE  FROM  OUTBRD.  ATTACH  POINT  TO 
BEGINNING  OF  PERFORATIONS! IN  MEMBRANE  FREE  STATE), 
WIDTH  OF  PERFORATED  AREA (IN  MEMBRANE  FREE  STATE) 

ENO  -ENO  ELEMENT  OATA  ARRAY;  RAOIUS  OF  INBOARD  ATTACH 

POINT,  ANO  PARAMETER  FOR  MATERIAL  CONSTRUCTION 
WHICH  AFFECTS  THE  STRSSS/STRAIN  RELATIONSHIP 

SPH  -ELEMENT  SET  INPUT  TA8lE(TW0  DIMENSIONAL); 

MERIDIAN  LOAOS  VS.  MERIDIAN  STRAINS  FOR  MEMBRANE 
(LBS/INCH  VS  DIMENSIONLESS  RATIO) 

STH  -ELEMENT  SET  INPUT  TABLE (TWO  DIMENSIONAL); 

HOOP  LOADS  VS.  HOOP  STRAINS  FOR  MEMBRANE 
l LBS/INCH  VS  DIMENSIONLESS  RATIO) 
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Table  241:  LISTING  FOR  SUBROUTINE  TS  (CONTINUED) 


PM 


REL 


BUT 


ZTR 


*****  OUTPUTS 
FXT*FYT ,  FZT 

TXT ,TYT  ,TZT 

PT,PTD,IPT 

VT  *VTD* I VT 

PCtPCOtlPC 

VC.VCO* IVC 

WTA 

MCA 

MTC 

AREL 

C.PT 

*****  INPUTS 
ROL,PIT,YAW 
X  ,ALT 
U,V,W 
PA 
WCU 
TCU 
MTR 
TTR 

NE(ANE) 

CDGAP 

COA 

COH1 

CDM2 


^ - - 


-PILLOW  ELEMENT  OATA  ARRAY;  ELEMENT  NUMBER 
ASSOCIATED  WITH  EACH  PILLOW  ELEMENT,  COEFFICIENT 
OF  FRICTION,  PILLOW  INFLATED  HEIGHT,  ANO  RATIO  OF 
INFLATED  PILLOW  CONTACT  WIDTH  TO  UNINFLATED  WIDTH 

-input  table (one  dimension);  relief  valve  opening 

AREA  VS  TRUNK  PRESSURE  (SQ.IN  VS  PSIA) 

-MISC.  DATA  ARRAYS  BODY  STATION  ANO  WATER  LINE  OF 
TRUNK  AXIS,  8QDY  STATION  ANO  WATER  LINE  OF  C.G., 
ANO  TERRAIN  MOOEL  PARAMETERS ( SEE  FUNCTION  TERRA) 

-INPUT  TABLE  FOR  DEFINITION  OF  GROUNO  ELEVATION 
(SEE  FUNCTION  TERRA) 


***** 

— X»Y»Z  AXIS, AXIAL, LATERAL  AND  VERTICAL  FORCE 
-SUMMATION  TERMS,  LBS 

— X , Y , Z  AXIS  SUMMATION  TERMS  FOR  ROLL, PITCH, 

-ANO  YAW  MOMENTS,  FT-LB. 

-TRUNK  PRESSURE, RATE, INT  CONTROL,  PSIA 
-TRUNK  VOLUME, RATE, INT  CONTROL,  CU  FT 
-CUHSIQN  PRESSURE, RATE, INT  CONTROL,  PSIA 
-CUSHION  VOLUME, RATE, INT  CONTROL,  CU  FT 
-AIR  FLOW'  RATE, TRUNK  TO  ATMOSPHERE,  LB/M  IN 
-AIR  FLOW  RATE, CUSHION  TO  ATMOSPHERE,  LB/MIN 
-AIR  FLOW  RATE,  TRUNK  TO  CUSION,  LB/MIN 
-RELEIF  VALVE  OPENING  AREA  ( SQ  IN) 

-CPU  TIME  (SEC) 

***** 

-ROLL, PITCH, YAW  EULER  ANGLES,  DEG 
-X,Z  EARTH  AXIS  POSITIONS 

— X , Y, Z  3QOY  AXIS  LINEAR  VELOCITIES,  FT/SEC 
-AM8IENT  PRESSURE,  PSIA 

-SUPPLY  AIR  FLOW  RATE  TO  CUSHION  CAVITY,  LB/MIN 

-TEMPERATURE  OF  WCU  AIR,  DEGR 

-SUPPLY  AIR  FLOW  RATE  TO  TRUNK,  LB/MIN 

-TEMPERATURE  OF  WTR  AIR,  DEGR 

-NUMBER  OF  ELEMENTS  PER  TRUNK  SIDE 

-SYMMETRIC  MODEL  IF  ANE.LT.O 

-DISCHARGE  COEFF.  FOR  FLOW  THROUGH  GAP 

-BETWEEN  TRUNK  AND  GROUNO 

-  DISCHARGE  COEFF.  FOR  FLOW  THROUGH 

-RELIEF  VALVE 

-ORIFICE  DISCHARGE  COEFFICIENT  FOR  FREE 
-PORTION  OF  TRUNK 

-ORIFICE  DISCHARGE  COEFFICIENT  FOR  TRUNK  AREA 


S17 
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Table  241:  LISTING  FOR  SUBROUTINE  TS  (CONTINUED) 


-IN  contact  with  the  ground 

TAU  -TIME  CONSTANT  FOR  TRUNK  ANO  CUSHION  VOLUME 

-RATE  OF  CHANGE,  SEC 

P,Q,R  — X  »  Y  »  Z  BODY  AXIS  ANGULAR  V5L0C IT  I ES , DEG/ SEC 

OMP  -DAMPING  COEFFICIENT  AS  A  FUNCTION  OF 

-FLATTENED  AREA,  LB-SEC/IN. /SQ  IN. 

EPC  -PRINT  CONTROL,  EPC=1.  PRINT  ELEMENT  VARIABLE 

-VALUES  EVERY  PRINT  INTERVAL 
VU  -BREAK  POINT  IN  MU-VELOCITY  CURVE, IN/SEC 

PTM  -MAXIMUM  TRUNK  PRESSURE  (PSIG)  USED  TO  GENERATE 

MEMBRANE  DATA  ARRAYS 

CATV  -EFFECTIVE  AREA  (SO  IN)  OF  ORIFICE  FOR  VARYING 

TRUNK -CUSHION  FLOW  (DEFAULT  VALVE  =  0.) 

SPB  -ACTUATION  SIGNAL  FOR  PILLOW  BRAKE  ELEMENTS 

=0.  BRAKES  OFF 

*1.  BRAKES  fully  applied 


***  constants  *** 

RG=53.34 


-GAS  CONSTANT  FOR  AIR,  FT-L3/LB/0EGR 


CALCULATION  OF  TRUNK  DATA  ARRAYS  AND  TRANSFER  OF  DATA 
FROM  INPUT  DATA  ARRAYS  IS  ACCOMPLISHED  AT  INITIAL  TIME 


DIMENSION  A(6),B(3) ,L0( 8) ,XA(25),YA(25) ,ZA(25) »D( 25) ,RD(25) , 

*  BET (25)  ,  I S  ( 2  5 ) ,AP(25) ,LP(25) , LH( 25 ) »MU ( 25 ) , 

*  MB ( 25 ) , HB ( 25 ) ,GKD(25) ,EPI < 3 ) ,ETI (8  > ,NU( 8  > , FRC ( 8 ) ,RAO( 8) 
DIMENSION  XBA ( 25 ),YBA(25) ,Z8A ( 25 ) , RA ( 25 ) , SN8 ( 2 5 ) , CS8 ( 25 ) 
DIMENSION  ABLli) ,XYZ(l) ,IAL( I),OM( 1) ,EN0(1) ,REL(I) ,ZTR( I) 
DIMENSION  SPH(l) , STH( 1) ,PM( 1 ) ,3WT( 1) 

C 

REAL  L3,IAL,LP,LH,MU,MB,NU,L3,L1,L2 

C 

COMMON/ C 1 0/ 1  READ ,IWRITE»IDIAG 

C0MM0N/STRCH/EY0(2560> , EL  I (2560) ,EL3(2560) , SVC (2560) ,E VS (2560) , 
2  EEK2560)  ,EE3(2560),EL2(2  560  )  ,AZ0(512) 

COMMON/CPROV/PV ( 27) 

COMMCN/CT IME/TIHE 
COMMON/TSTEST/XXX (10) 

C 

OATA  RG/53.34/ 

CALL  SECOND ( CPT) 

1F(TIME.NE.PV(27) )  GO  TO  15 

C 

NSET=SPH(3) 

NEND=SNO ( 2 ) 

IF(END(2) .EQ. 1.99999)  NEN0=0 
NSIDEsNSET-NEND 
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Table  241:  LISTING  FOR  SUBROUTINE  TS  (CONTINUED) 


TEST1=0. 

NX=6*NSET*3 
00  4  1*2, NX 
TEST1*TEST1*ABL  ( I ) 

NX=SPH(2)*(SPH(3)-H.)«-S?H(3)«-3. 
DO  5  1*2, NX 
5  TEST1*TEST1+SPH(  I ) 

NX=STH(2)«(STH(3)*1.)«-STH<3)*3. 
00  6  1*2, NX 
TESTl=TESTUSTrt(I) 


NX=2*NEN0«-3 
DO  7  1=2, NX 

7  TEST1=TESTI+EN0 ( I) 

TEST1=TEST1+PTM 

IF(ABL(55).EQ.TEST1)  GO  TO  3 

ABL(55)=TEST1 

00  10  1  =  1  ,NSET 

I6=6*(I-1) 

A  ( I ) *A3L ( I6+4) 

8(1) =ABL ( 16+5) 

L0<I)=A8L<I6+6) 

EPI(I)*ABL(I6+7) 

ETim=ABL(16+3) 

NU(I)=ABL(l6-*-9) 

10  CONTINUE 

IF(NEND.EQ.O)  GO  TO  25 
00  24  1*1 ,NENO 
I2=2*(I-l) 

RAD(I)=SN0(I2-*-4) 

24  FRC(I)*EN0(I2>5) 

25  CONTINUE 

CALL  ELAS  TO  COMPUTE  TRUNK  DATA  ARRAYS 


CALL  ELAS(NSIDE,NENO,SPH,STH,A,B,LO,EPI,ETI,RAO,NU,FRC,PTM) 

C 

3  CONTINUE 

C 

NPB»PM(2)/2. 

IF(PM(2).EQ. 1.99999 )  NPB*0 
N6*A8Si ANE) 

IFiSPB.EQ. 0.99999)  SPB*0. 

IF(CATV.EQ. 0.99999)  CATV=0. 

TE  ST2*0 • 

00  9  1*2,11 

9  TSSTZ*T£ST2+8WT( I) 

• 
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Table  241:  LISTING  FOR  SUBROUTINE  TS  (CONTINUED) 


». 

C 

NX  =4*NP  3  3 
00  11  1=2, NX 

11  TEST2=TEST2+PM(I ) 

C 

NX=2*NE+3 
DO  12  1=2, NX 

12  TEST2=TEST2+DH(I) 

C 

NX=4*NE«-3 
00  13  1=2, NX 

13  TEST2=TEST2*IAUI)«-XYZ<I> 
IF<ABL(54) .EQ.TEST21  GO  TO  15 
ABLl 54) =TEST2 

C 

MS=2 

IFIANE.LT. 0. >MS=1 

C 

BST=8WT (4) 

WLT=BWT(5> 

BSCG=3WT ( 6 ) 

WLCG=8WT(7) 

AM00E=BWT ( 8 ) 

ANR=8WT ( 9 ) 

OL=BWT( 10) 

H=BWT(il) 


DO  20  1=1, NE 
RO ( I )=0. 

MB ( I ) *0 . 

HB ( I ) =0 • 

GKO ( I ) = 1 • 
i4=4*( r-i ) 

XA(I)=XYZ( 14+4) 
YA(I)=XYZ( I4+5 ) 
ZA(I)=XYZl I4>6 ) 
BET(I)=XYZ(I4-#-7) 
IS(I)*IALll 4>4) 
AP(I)=IAL( 14+5 ) 
LP(I)=IALtl4*6) 
LH(I)*IAL(I4f7> 

I2=2*( 1-1 ) 

0(  I)*0M(I2«-4) 

MU( I )=0M( I 2+5 ) 

C 

XBA(1)=  BSCG-BST+XAd) 
Y3 A ( I ) =  YA ( I ) 

ZB A ( I ) =  WLCG-WLT +  ZA ( I ) 

C 
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Table  241:  LISTING  FOR  SUBROUTINE  TS  (CONTINUED) 


SNB!I)*SINt.0l745*3ET(in 
CS3( I ) -COS ( .0 1745*8 ET (II) 
RA!I)*YA( I)/CS8( I) 

ix*ism 

IFiIX.LE.NENO)  RD! I )=RAO! IX) 
20  CONTINUE 
C 

IF1NPB.EQ.0)  GO  TO  28 
00  27  1*1, NP8 
I 4*4* { I -1 ) 

I P=PM( 14+4) 

MB ( I P ) *PM 1 1 4*  5 ) 

H8 I IP) *PM ( 14*6 ) 

27  GKD( I P) *PM  t 14+7 ) 

28  CONTINUE 
DPT*PTM/9. 


PRINT  INPUT  DATA  FOR  ALL  TRUNK  ELEMENTS 
WRITE! I WRITE ,6000) 

WRITE(IWRITE,6002)  (I,XA(I)  ,YA(I),ZA(  I)  ,RA(  I)  ,BET(I),0(  1)  ,RO(U, 

*  MU(I),IS(I) ,AP( I) ,LP(I) , LH( I ) »H8 ( I ) , GKO ( I) , MB ( I ),I*l,NE) 

000  FORMAT!  1H1,31H*****  TRUNK  PARAMETER  DATA  *****  16!  5H*****)//// 

*  37H  ELEMENT  XA  YA  ZA, 

*  8X, 24HRA  BET  D  RD, 

*  6X,49H  MU  IS  AP  LP  l_H  HB  KO  MB/) 

002  FORMAT ( 4X» 12 , 2X, 4FI0. 2, F8 .2,F7.2»F8.3,F8.3,I4, F9. 5»2F7.1»2F6.1, 

2  F6.2/) 

00  29  1*1, N£ 

29  IF! BET ! I ) .NE.O. )  0 < I > *0 < I )/57. 29578 

********************  END  OF  INITIAL  COMPUTATIONS  **************** 
15  CONTINUE 


INITIALIZATION  FOR  LOOP  ITERATION 

AGAP*0. 

FXT  *0. 

FYT  *0. 

FZT=0. 

TXT  *0. 

TYT  *0. 

TZT  *0. 

VCS  *0. 

VTS  *0. 

AHA 1*0. 

AHA2*0. 
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Table  241:  LISTING  FOR  SUBROUTINE  TS  (CONTINUED) 


AHCI=0. 

AhC2=0. 

C 

CR=COS(  .Ol745*ROL) 

CP=COS(.01745*PIT) 

CY=C0S(.01745*YAW) 

SR*SIN( .01745*RQL) 

SP=SIN( .01745*PIT) 

SY=SIN< .01745*YAW) 

C 

CPCY*CP*CY 
CRSY*CR*SY 
SR  SPCY=SR*SP*CY 
SYSR=SY*SR 
CYCRSP*CY*CR*SP 
CPSR*CP*SR 
CRCP*CR*CP 
SPSR*SP*SR 
SPCR*SP*CR 
C 

P1=P*. 01745 
Q1=Q*. 01745 
R1»R*. 01745 
C 

U1=U*12. 

V1=V*12 • 

W1=W*12. 

C 

C  **  M*1  FOR  RIGHT  HANO  SIDE 

C  **  M  =  2  FOR  LEFT  HANO  SIDE  ** 

C  **  I =TRUNK  ELEMENT  NUMBER  ** 

C  **  E=  +1  WHEN  M=1  ( RHS ) 

C  **  E=  -l  WHEN  M=2  ILHS) 

C 

00  30  M=I,MS 
E*i. 

IF(M.£0.2)  E=-l • 

00  30  1=1, NE 

**  TEST  FOR  SIDE  OR  ENO  ELEMENT  ANO  CALCULATE  CUSHION- 
♦*  -TO-  TRUNK  PRESSURE  RATIO 
PTG-PT-PA 
PR*(PC-PA )/PTG 

**  FS  REFERS  TO  FREE  SHAPE  VALUES  WHICH  ARE  FUNCTIONS  OF  PR  ANO  PT 

CALL  ET82(IS(I)?PR»  PTGt OPT » ZOFS ) 

CALL  £TS3 ( IS ( X ) , PR, PTG, OPT , l. , EYO, YOFS) 

C 

c 
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Table  241:  LISTING  FOR  SUBROUTINE  TS  (CONTINUED) 


XBT*X8A ( I ) ♦YOFS*SNB < I ) 

YBT*E*IY8A(I) ♦YQFS*CS3 ( I ) ) 

ZBT=ZBA ( I ) ♦ZOFS 

DETERMINE  X  AND  Z  POSITION  OF  POINT  T  IN  EARTH  COORDINATES 

XET»X*12.<-X8T*CPCY«-Y3T*(SRSPCY-CRSY)+ZBT*(SYSR«>CYCRSP) 

ZET=-ALT*12.-XBT*SP«-YBT*CPSR+ZBT*CRCP 

DETERMINE  TERRAIN  ELEVATION  AT  POINT  T 

ZE6  *TERRA (XETt AMOOE» ANRfOLt Ht ZTR) 

CALCULATE  TRUNK-GROUND  GAP  HEIGHT. 

NEGATIVE  GAP  IMPLIES  A  LOADED  TRUNK 

ZGAP»— ZEG-ZET—H8 ( I ) *SPB*MB ( I )/( .0001 ♦MB (I ) ) 

Z0=Z0FS+ZGAP 
ZC=AMIN1 ( ZO» ZOFS ) 

IF(ZGAP.GT.O. )  GO  TO  44 
ZR*ZO/ZOFS 

LOAOEO  SHAPES 

CALCULATE  TRUNK  ELEMENT  DIMENSIONS  ANO  AREAS  FOR  A 

LOAOED  SHAPE.  CALL  ETB3  TO  INTEPCI.ATE  FROM  TRUNK  DATA  ARRAYS. 

LOADEO  SHAPE  VALUES  ARE  FUNCTIONS  OF  PR ,  PT  AND  ZR. 

CALL  ET33(ISm,PR,PTG,DPT,ZR,EY0,Y0) 

CALL  ETB3 ( IS ( I ) >  PR» PTG*OPT  »ZR»ELl»Ll) 

CALL  ET33 (IS(1)»PR» PTG»DPT »ZR » EL2 » L2 ) 

CALL  ETB3(IS<I),PR,PTG,0PT,ZRtEL3,L3l 
LT»LI+L2+L3 

CALL  6T83(ISII),PR,PTG,DPT,ZR»EVS,AS) 

CALL  ETB3( IS 1 1) ,PR,PTG,OPT,ZR*EVC, ACV) 

TRUNK  GROUNO  REACTION 

ox*om 

IF (SET( I ) .NE.O. )  DX*( YO+RD( I ) ♦• 5*L3) *0 ( I) 

AT*OX*L3 

AT»SPB* l AT*GKDC I I-ATI ♦AT 

OAGAP* • 5«SPB*HB ( I ) *0X* ( 1 . -GKD (I) ) 

AGAP»AGAP+OAGAP 
3  CONTINUE 

FTBAR* ( PT-PA I  *AT 

DETERMINE  VELOCITY  OF  POINT  T  RELATIVE  TO  EARTH 
WITH  X  ANO  Y  COMPONENTS  ORIENTEO  TO  BOOY  AXIS 
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Table  241:  LISTING  FOR  SUBROUTINE  TS  (CONTINUED) 


XBT*XBA  ( I )  ■*•{  YO+O  .  5*L3  )  *SNB  ( I  > 

YBT=E*(YBA( I )♦( Y0*0.5*L3 ) *CSB ( I ) ) 
Z3T*ZBA(I)*Z0 
C 

X8T0*  ZBT *QI“Y3T*R1HI1 
YBTD=-ZBT*P1>X8T*RH-V1 
ZBTD*  YBT*P1— X8T*Q1*W1 

C 

XTD2*X8TO*CP-*>YBTD*SPSR*Z3TO*SPCR 

YT02*Y8TD*CR-Z3TD*SR 

ZTD=-XBTD*SP+Y3TD*CPSR+Z3TD*CRCP 

C 

VET*SQRT( XTD2*XTD2«-YTD2*YTD2 ) 

C 

C 

C  CALCULATE  ELEMENT  FRICTION  FORCES 
C 

IF(VET.E3.0.)G0  TO  34 
UTO=MU(I)*VET/VU 
UTO=AMINl CUTO  »MU ( I ) ) 

C 

IF (MB ( I ) . EQ. 0. )  GO  TO  35 
UTl=M8 ( I ) *VET/VU 
UT1=AMINI ( UT1 »M8 ( I ) } 

UT0=UT0-*-SP8*(UTl-UT0) 

35  CONTINUE 

UTX=UT0*XTD2/VET 
U-TY=UT0*YTD2/VET 
GO  TO  36 
34  UTX*0. 

UTY=0. 

36  CONTINUE 

C 

FFXBAR=-UTX*FT8AR 

FFYBAR=-UTY*FT3AR 

C 

C  **  CALCULATE  ELEMENT  OAMPING  FORCE 
C 

FD8AR*0MP*AT*ZTD 

C  **  CALCULATE  FORCES  ANO  MOMENTS 

C 

C 

FXT»FXT+FFXBAR 

FYT*FYT+FFYBAR 

FZT»FZT-FTBAR-F08AR 

DTXT*(-( FTBAR+FDBaR )*YBT-FFY3AR*ZBT) *.08333 
TXT*TXT+OTXT 

OTYT*(  (FT8AR+F0BAR) *XBT«-FFX3AR*ZBT  )*. 0  8333 
TYTsTYT+OTYT 

OTZT*( FFYSAR*X3T-FFX3AR*Y8T ) *.08333 
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Table  241:  LISTING  FOR  SUBROUTINE  TS  (CONTINUED) 


TZT*TZT*DTZT 
GO  TO  66 

CALCULATE  TRUNK  ELEMENT  OIMENSION  ANO  AREAS  FOR  FREE  SHAPE 

4  CONTINUE 
RR*1. 

IFIBETID.NE.O.)  RR*RO(  I  )+YOFS 
0AGAP«RR*ZGAP*O( X ) 

agap*agap+oagap 

CALL  ET83 ( IS ( 1 ) » PR*PTG*OPT *  1. *EYO»YO ) 

CALL  ET83( IS( I ) »  PR»  PTG*OPT*l.  t ELI  *  LI ) 

CALL  ETB3(IS(I)*PRtPTG*0PT,l.,EL2»L2) 

LT*LH-L2 

CALL  ETB3 ( IS ( I )  » PR »  PTGtOPT 1 1 • t  EVS t AS ) 

CALL  ETB3( IS( I) »PR* PTGtOPT tl.t EVCtACV) 

FFX8AR=0. 

FFYBARsO. 

FDBAR»0. 

FTBAR*0. 

L3*0. 

AT*0. 

0TZT*O. 

ZR*1  • 

66  CONTINUE 
IQ*IS(I> 

FREEL*LO ( IQ)/(l.«-EPI( IQ)) 

EP*(LT-FREEL)/FREEL 

test  FOR  ENO  OR  SIDE  ELEMENT 

IF(BETII>.EQ.O.)  GO  TO  77 
C 

Y3C*E*I YBA< I >♦< .6667*Y0-.3333*RAt I ) ) *CSB(I> ) 

AC*. 5*0(1 >*Y0*<Y0*2.*R0(I >) 

OVCS*.0005787*Dm*(.5*ZC*(YO«-RD<I  >>**2  -  ACV) 
VCS*VCS+DVCS 
GO  TO  88 
C 

77  CONTINUE 

Y8C*0.5*E*(YBa(I)»Y0) 

AC*0(I)*( YAII»>Y0) 

DVCS*<  ZC*AC-0( I >*ACV) *.0005787 
VCS-VCS+OVCS 
88  CONTINUE 
C 

0VTS*0( I ) *AS*. 0005737 
VTS*VTS«-OVTS 
C 
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Table  241:  LISTING  FOR  SUBROUTINE  TS  (CONTINUED) 


XBC3XBA ( I >♦( .6667*Y0-.3333*RA< 1 1 )*SN8( I ) 

FCBAR*  (PC-PA)*AC 

FZT*FZT-FCSAR 

DTXT«-FCBAR*YBC*.0B333 

TXT*TXT>OTXT 

OTYT«FCBAR*XBC*. 0B333 

TYT*TYT*OTYT 

COMPUTE  AREA  OF  PERFORATIONS 
IF (AP( I ) . EQ.O. )  GO  TO  31 
CALL  ETB3iIS(I) , PR , PTGtOPT ,ZR, EE1 , El > 

CALL  ETB3(IS(I) , PR » PTGtOPT, ZR , EE3 ,E3 ) 

SLP*LPtI>*<  l.*El> 

SLH»LH{I)*{1.^E3) 

DX*D( I ) 

IF(BETd)  .NE.O.)  0X*0  II)*(RA(I)  ♦YOFS  ) 

CALL  PERF(ZGAP,L1,L3,L3,SLP,SLH,RA(I ) ,YO,YOFS,OX,  APUJ  , 

2  PT,PCtPA,BeT(I) ,AHAl,AHA2,AHC2,AHCl> 

31  CONTINUE 

STORE  OATA  IN  XXPRT 

IF<EPC.GT .0.9)  CALL  XXPRT <0, I ,M, MS, NS ,ZGAP , ZO, YO, LI , L3 , DVTS,DVCS 

2  , FFXBAR, FFYBAR, FD8AR,FTBAR, FCBAR, L2,DAGAP,EP,DTXT,0TYT,0TZT, AT, 

3  AC) 

30  CONTINUE 
CALCULATE  FLOW  RATES 
CACA*CDGAP*AGAP 

CATA»C0HI*AHA1+.6667*C0H2*AHA2 

CATC*CATV*CDH1*AHC1*.6667*C0H2*AHC2 

**  TEST  FOR  SYMMETRIC  MOOEL 

I F ( ANE . GT . 0 .  ) GOTO  166 

FXT«2.*FXT 

FYT«0. 

FZT»2.*FZT 

TXT«0. 

TYT»2.*TYT 

TZT«0. 

VCS«2.*VCS 
VTS«2.*VTS 
CACA»2.*CACA 
CATA«2.*CATA 
CATC»2.*CATC 
66  CONTINUE 


**  CALCULATE  RELIEF  VALVE  AREA 


626 


non  noon  ooooo  o  ooo  non 


f 


Table  241:  LISTING  FOR  SUBROUTINE  TS  (CONCLUDED) 


N*RELl2 ) 

AREL  *  TBLU1(PT-PA,RELI<0  , RELIN+4)  ,1,-N) 
CATA*CATA-*CDA*AREL 

**  CALCULATE  CUSHION  VOLUME  RATE  OF  CHANGE 

IFilVC.NE.O)  VCD*( VCS-VC1/TAU 

**  CALCULATE  TRUNK  AIR  VOLUME  RATE  OF  CHANGE 

IFCIVT.NE.O)  VTD*  ( VTS—VT I /TAU 

CACA*AMIN I ( 3000. tCACA) 

CALL  FNFLOW(PC»PA,TCU,CACA,l., FN«WCA) 
CALL  FNFL0W(PT,PA,TTR,CATA,1.»FN»WTA) 
CALL  FNFLOW ( PT , PC , TTR* CATC « I . » FN , WTC ) 


**  CALCULATE  CUSHION  PRESSURE  RATE  OF  CHANGE 
***  INTEGRATE  CUSHION  PRESSURE  *** 

00*1. 

IF C TAU. EQ .0.99999 )  00*0. 

PC01*t .OOOl389*RG*TCU*(WCU+WTC-WCA)-1.2*PC*VCO*OOI/VC 
IF(IPC.NE.0)PC0=PC01 

**  CALCULATE  TRUNK  AIR  PRESSURE  RATE  OF  CHANGE 
***  INTEGRATE  TRUNK  PRESSURE  *** 

I F ( IPT.NE .0 ) PTD* ( .000 1389*RG*TTR* (  wVr-MTC-WTA 1 -I. 2*PT*VTD*00 )/ VT 


PRINT  OATA  IN  XXPRT 

I F( EPC. GT.0.9 )  CALL  XXPRT ( 1, I » M.MS.NE #ZGAP ,20, YO, LI . L3 ,0VTSt OVCS 

2  ♦FFXBARfFFY8AR,F08AR,FTBAR,FCBAR,L2,0AGAP,EP,0TXT,0TYT,0T2T,AT, 

3  AC) 

RETURN 

END 
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Table  242:  LISTING  FOR  SUBROUTINE  TT 


CTT 

SUBROUTINE  TT ( W , WO, IW,Q ,QD , IQ ,P IT ,P ITO ,IP IT , 2 , ZD , IZ , 

*  QOOT,WOOT,TY,YYI,ROL,U) 

PURPOSE  TWO  DEGREE  OF  FREEDOM  RIGID  BOOY  EQUATIONS  OF  MOTION (LONG) 
VERSION  2.  AUG. 22  1977 

METHOD  EULER  ANGLES 
CALL  SEQUENCE 
*****  OUTPUTS  ***** 

LINEAR  VELOCITIES  —  BODY  AXES 

W,WO,IW  -  Z  AXIS  LINEAR  VELOCITY, ACCEL , INT  CONTROL,  FT/SEC 

ANGULAR  VELOCITIES  —  BODY  AXES 

Q,QO,IQ  -Y  AXIS  ANGULAR  VELOCITY , ACCEL, INT  CONTROL, DEG/SEC 

EULER  ANGLE  —  EARTH  TO  BOOY  -  PITCH 

P IT ,PITD , IPI T  -  PITCH  ANGLE, RATE, INT  CONTROL,  OEG 
POSITION  —  EARTH  AXES 

Z,ZD,IZ  - Z  AXIS  POSITION  (ALT) , VELOCITY, INT  CONTROL,  FT 

ANGULAR  ACCELERATION  —  BOOY  AXES 

QOOT  -  Y  AXIS  ANGULAR  ACCELERATION,  DEG/SEC2 

****************  INPUTS  **************** 

LINEAR  ACCLERATIONS  —  BOOY  AXES 

WDOT  -  Z  AXIS  LINEAR  ACCELERATION,  FT/SEC2 

MOMENTS 

TY  -  Y  AXIS  TORQUE,  FTLBS 

MOMENT  OF  INERTIA 

YYI  -  Y  AXIS  MOMENTS  OF  INERTIA,  SLUG-FT2 

EULER  ANGLES  —  EARTH  TO  BOOY  -  ROLL, YAW 
ROL  -  ROLL  ANGLE,  OEG 

U  -  X  AXIS  LINEAR  VELOCITY, FT/SEC 

WRITTEN  BY  MAHINOER  WAHI  APRIL  1977 

OATA  RPD,DPR  /. 01745329, 57. 29578/ 

SP=SIN(PIT*RPD) 

C?=COS(PIT*RPD) 

CR=COS(ROL*RPD) 

Q1=Q*RP0 

****************  LINEAR  VELOCITY  EQUATIONS  ************ 

IF  ( IW.NE.O )WO=WOOT 

****************  ANGULAR  VELOCITY  EQUATION  ************ 

IP ( IQ .NE.0 )Q0=( TY/YYI ) ♦OPR 

****************  EULER  ANGLE  EQUATION  ************ 

IF ( IP  IT .NE .0) PITD=Q*CR 

****************  POSITION  EQUATIONS  *************** 

-  TEST  IF  X  AND  Y  ( LATITUOE  ANO  LONGITUDE )  ARE  BOTH  FROZEN 

IF ( IZ.NE. 0) ZD*  SP*U-CP*CR*W 
C  **********  ANGULAR  ACCELERATION  (FOR  OUTPUT  PURPOSES  ONLY)  ***** 
QOOT»QO 
RETURN 
END 


i 

. 
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Table  243:  LISTING  FOR  SUBROUTINE  TZ 


CTZ 

SUBROUTINE  TZ l XI, X  LOOT, IX 1 ,X2,X200T , lX2,FOt FIN » ZO,Zl , Z2 , PO, PI ) 

PURPOSE  -  TO  SIMULATE  SECONO  OROER  TRANSFER  FUNCTION  WITH  SECOND  ORD£.= 
NUMERATOR  2 


FO 

Z2*S  ♦ 

Z1*S  ♦ 

zo 

FIN 

2 

S  ♦ 

P1*S  ♦ 

PO 

METHOD 

-  SELF  EXPLANATORY 

LIMITATIONS  -  NONE 

WRITTEN 

BY  -  ADAM  LLOYO  LATEST 

REVVSION 

NOV  75 

INPUT/OUTPUT  LIST 

XI 

FIRST  STATE  VARIABLE 

ANY 

OUTPUT  STATE 

XIOOT 

FIRST  STATE  VARIABLE  DERIVATIVE 

ANY 

OUTPUT  STATE 

rxi 

INTEGRATOR  CONTROL 

PROGRAM  VAR 

X2 

SECONO  STATE  VARIABLE 

ANY 

OUTPUT  STATE 

X2D0T 

SECOND  STATE  VARIABLE  DERIVATIVE 

ANY 

OUTPUT  STATE 

1X2 

INTEGRATOR  CONTROL 

PROGRAM  VAR 

FO 

TRANSFER  FUNCTION  OUTPUT 

ANY 

OUTPUT  VAR 

FIN 

TRANSFER  FUNCTION  INPUT 

INPUT  VAR 

ZO 

NUMERATOR  COEFFICIENT 

INPUT  PA RAM 

Z1 

NUMERATOR  COEFFICIENT 

INPUT  PARAM 

Z2 

NUMERATOR  COEFFICIENT 

ANY 

INPUT  PARAM 

PO 

DENOMINATOR  COEFFICIENT 

1/SEC2 

INPUT  PARAM 

PI 

DENOMINATOR 

1/SGC 

INPUT  PARAM 

COMMON/CI O/IR  EAO , IWRI TE , I DI AG 
FO=T2+FIN*Z2 

IF (IX1.NE.O)X100T=ZO*FIN-PO*FO 

IF{IX2.N6.0>X2C0T=X1+Z1*FIN-P1*F0 

RETURN 

END 
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Table  244:  LISTING  FOR  SUBROUTINE  VA 


CVA 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  VA ( UO, VO, WO, PO ,QO, RO, DIMO ,QWO, RWO, CAS ,SAS , AL, ALP , 

1  VBAR,8ETA,WP,UP,EU,EV,EW,SlGZ,QCOM,QBAR,XMACH,U,V,W, 

2  P,Q,R,Z ,PIT,ROL,OIM,VS,ALS,S,UW,VW,WW,PW,QW, RW,OIG> 

DIMENSION  SIG( 35) »A (35) 

VERSION  2.  JULY  13  1977 

PURPOSE:  COMPUTE  AERO  VARIABLES  FROM  STATES 
CALL  SEQUENCE: 

******  OUTPUTS  ****** 

OUTPUT  VARIABLES=  INPUTS  - 

UO,VO,WO  -X,Y,Z  BODY  AXIS  LINEAR  VELOCITY  WITH  WIND, FT/SEC 

PO ,QO,RO  -X,Y,Z  BOOY  AXIS  ANGULAR  RATES  WITH  WIND,  OEG/SEC 

01  MO  -INDICATOR  FOR  AERO  FORCES  AND  MOMENTS  =  DIM 

QWO,RWO  -Q  AND  R  ANGULAR  RATE  GUSTS,  DEG/SEC 

AERO  VARIABLES  - 

CAStSAS  -DIRECTION  COSINES  FOR  STABILITY  AXIS  TRANSFORM 

AL,ALP  -ANGLE  OF  ATTACK  IN  BODY  ANO  STABILITY  AXES,  DEG 

VBAR  -TRUE  AIRSPEED,  FT/SEC 

BETA  -SIDESLIP  ANGLE,  DEG 

WP,UP  -Z  ANO  X  STABILITY  AXIS  VELOCITIES , FT/SEC  (DIMENSIONAL 

-Z  ANO  X  PERTURBATION  VELOCITIES  ( NONDIMENSIONAL ) 
EU,EV,EW  — X,Y »Z  BOOY  AXIS  ACCELERATION  TERMS  FOR  UDOT,VDOT, 

WDOT  SOLUTIONS,  FT/SEC**2 
STANOARD  ATMOSPHERE  VARIABLES  - 


SI  GZ 
QCOM 
QBAR 
XMACH 


-AIR  DENSITY  RATIO 

-COMPRESSIBLE  DYNAMIC  PRESSURE,  L8S/FT**2 
-OYNAMIC  PRESSURE  TIMES  REFERENCE  AREA,  LBS 
-MACH  NUMBER 
****** 

— X , Y , Z  BODY  AXIS  LINEAR  VELOCITIES,  FT/SEC 
— X, Y, Z  BOOY  AXIS  ANGULAR  RATES,  DEG/SEC 
-ALTITUOE  ABOVE  SEA-LEVEL,  FT 

-PITCH  AND  ROLL,  EARTH  TO  BOOY  AXIS  EULER  ANGLES,  OEG 


INPUTS 

STATE  VARIABLES 
U,V,W 
P»Q»R 
Z 

PIT,ROL 

INDICATOR  FUNCTION  FOR  AERO  FORCES  AND  MOMENTS 


DIM  *  0 
1 
2 
3 

CONSTANTS  - 

vs 

ALS 

S 

WIND  STATES 
UW,VW,WW 
PW  »QW,RW 


-BODY  AXIS, D I MEN SI ONAL 
-BOOY  AXIS,  NONDIMENSIONAL 
-STABILITY'  AXIS,  DIMENSIONAL 
-STABILITY  AXIS,  NONDIMENSIONAL 

-STEAOY  STATE  AIRSPEED,  FT/SEC 
-STEAOY  STATE  ANGLE  OF  ATTACK,  DEG 
-REFERENCE  AREA,  FT**2 


(U) 


— X,Y»Z  BOOY  AXIS  WINO  VELOCITIES,  FT/SEC 
— X , Y , Z  BODY  AXIS  WlNO  ANGULAR  RATES,  DEG/SEC 
INDICATOR  FUNCTION  FOR  DEGREES  OF  FREEDOM  (OOF) 

OIG  *  2  -TWO  OOF  LONGITUDINAL  (S,Q> 

3  -THREE  OOF  LONGITUOINAL  (U»W,Q) 

4  -FOUR  OOF  LATERAL ( V,P ,R )  ♦  LONGI, 

5  -THREE  OOF  LATERAL  (V,P,R) 

6  -SIX  DOF  FULL  MOOEL  (U»V  ,W,P,Q,R) 

WRITTEN  BY  A. W. WARREN  AS  COMPONENT  *AV*  IN 

FLT, CONTROL  LIBRARY  SEPT  1976 
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Table  244:  LISTING  FOR  SUBROUTINE  VA  (CONTINUED) 


MODIFIED  BY  MAHINDER  WAHI  MAY  1977 

COMMON  /COVRLY/  DUM (3) , CPUSEC 

DATA  PS,ISW,G,SIG/  .001 18  8*.,  0, 32 . 174  fl  .0,  .9151 ,  .3359  , 

1  .7620* .6932, .6292 ,.5699, .5150, .4642 , .4173,. 3741 ,.3345, 

2  .2981,. 2583, .2236 , .1936, . 1676, . 1451, . 1256, .10874, .09414, 

3  .08150, .07052, .06081,. 05248,. 04532,. 03915,. 03365,. 02928, 

4  .02534,. 02195,. 01902,. 01649,. 01431,. 01242/ 

DATA  OPR  /57.29578/,CPU$  /O./ 

DATA  A  /1116. 4, 1104.9, 1093. 2, 1081.4, 1069.4, 1057.4,1045.2, 

1  1032.8,1020.3,1007.6,994.9,981.9,968.7,968.1,968.1,968.1, 

2  968.1,968.1,968.1,968.1,966.1,968.1,968.2,970.2,972.2, 

3  974.3,976.3,978.3,980.3,982.3,984.3,986.3,988.3,990.2,992.2/ 

INITIALIZATION 
IF (CPUS .EQ .CPUSEC )  GO  TO  10 
IF (UW. EQ.  .99999)  UW=VW=WW=PW=QW*RW*0. 

IF (DIM.EQ •  .99999)  DIM*  0. 

IF ( ALS.EQ.  .99999)  ALS*  0. 

IF (DIG. EQ. 2.)  GO  TO  40 
IF(DIG.EQ.3.)  GO  TO  50 
IF (DIG.EQ .4.)  GO  TO  60 
IF (DIG.EQ.5.)  GO  TO  70 
IF (0IG.EQ.6. )  GO  TO  80 
40  V  *P  *R  *UW  =  VW  *PW  =RW  =0. 

GO  TO  80 

50  V  *P  =R  *VW  *PW  *RW  =0. 

GO  TO  80 

60  Q  =WW  =0W  =0. 

GO  TO  80 

70  Q  =UW  *WW  *QW  =0. 

80  CONTINUE 

CAS*  COS ( ALS/OPR ) 

S AS*  SIN< ALS/OPR) 

US»VS*CAS 
01 MO*  OIM 

IF (DIM.GE .2 .)  GO  TO  20 
CAS*  1. 

SAS*  0. 

20  CPUS*  CPUSEC 

OUTPUT  STATES 

10  UO*  U  -UW 
VO*  V  -  VW 
WO*  W  -  WW 
PO*  P+  PW 
QO*  Q*  QW 
RO*  R*  RW 
QWO*  QW 
RWO*  RW 

IF (DIM. LT. 2. )  GO  TO  30 
PI*  PO*CAS>  RO*SAS 
RO*  RO*CAS-  PO*SAS 
PO*  PI 


C 

c 


AERO  VARIABLES 
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Table  244:  LISTING  FOR  SUBROUTINE  VA  (CONCLUDED) 


30  AL  =  ATAN( WO/UO)*OPR 
AL°*  AL  ~  ALS 

V3AR2*  U0**2  ♦  V0**2  ♦  W0**2 
V9AR*  SORT  ( VB AR2) 

BETA*  ASIN (V0/V8AR )*DPR 
WP*  WO*CAS-  (JO*SAS 
UP*  UO*CAS  ♦  WO*SAS 
I P ( DIM.EQ . 1. )  UP*  (UO  -  US)/VS 
IP ( OIM.EQ . 3. )  UP*  (UP  ■-  VS)/VS 

EU*  ( — Q*W  ♦  R*V)/DPR  -  G*SIN( PIT/OPR) 

Gl  *  G*COS (PIT/OPR) 

5V*  (— R*U  ♦  P*W)/DPR  ♦G1*SIN ( ROL/OPR ) 

EW=  (-P*V  ♦  Q*U) /OPR  ♦G1*C0S( ROL/OPR) 

ATMOSPHERE  VARIABLES 

LINEAR  INTERPOLATION  OP  AIR  DENSITY  RATIO  AND  SOUNO  VELOCITY 

Zl=  Z/2000.  >1. 

IZ=  Z1 

IZ*  MINO|MAXO(  1,IZ)  »3A-) 

SIGZ*  SIG(IZ)  ♦  ( S IG( IZ+1 )  -  SIG(IZ) )*<ZI-IZ) 

AZ*  A(IZ)  ♦  ( A ( IZ ♦  1  >  -  A ( I Z ) )  *  ( Z 1— I Z ) 

DPS*  PS*SIGZ*VBAR2 
QBAR*  OPS*  S 
XMACH*  VBAR/AZ 
XM2*  XMACH**2 

QCOM*  OPS*(l.+  XM2*«25*( I .♦  XM2*0.1*( 1.*  XM2*.025))) 

I P  (XM2.GT •  1.  )  3COM*  DPSM1.839  -,772/XM2**2  ♦  .035/XM2**3) 

RETURN 

END 
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Table  245:  LISTING  FOR  SUBROUTINE  VALVE 


CVALVE 

SUBROUTINE  VALVE 

C  PRESSURE  RELIEF  VALVE  SUBROUTINE 

C  RELATION  8ETWEEN  VENT  AREA  ANO  RELIEF  VALVE  DISPLACEMENT 
C 

COMMON/ST  ATE/PPLM  t PCH  » PTK ♦ SINKRT » YCG  »OPHI ,DTHETA ,THETAE,PHIE, SIE 
1  ,XV,VV,OFANX 

COMMON/PRV/DPRV* PPLMB  »XA »AKPRV*AMPRV»SPRV ,NPRV, AVENT 
C 

AVENT=0. 

IF(XV.LT.O.O>  RETURN 
C  VALVE  OPEN 

AVENT  »XV*SPRV 

RETURN 

END 
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Table  246:  LISTING  FOR  SUBROUTINE  VLX 


CVLX 

SUBROUTINE  VLX CPI, P2,T,0,0P0PP,0PEN, VAL,W ) 

PURPOSE  -  TO  CALCULATE  THE  HEIGHT  FLOW  OF  AIR  ACROSS  8UTTERFLY , 
GATE  ANO  GLOBE  TYPE  VALUES. 


METHOD  -  l.  BUTTERFLY  VALVES  -  ASSUMES  DISCHARGE  COEFF  0.37 

2.  GATE  VALVES  -  USES  INPUT  TABLE  OF  K  FACTOR  VERSUS 

FRACTIONAL  OPENING 

3.  GLOBE  VALVES  -  CALCULATES  GEOMETRIC  FLOW  AREA  AND 

ASSUMES  DISCHARGE  COEFF  =  0.80 


WRITTEN  BY  -  ADAM  LLOYD  LATEST  REVISION  NOV  75 


LIMITATIONS  -  FOR  GLOBE  VALVES,  THE  POPPET  DIAMETER  (DPOPP> 

MUST  BE  GREATER  THAN  OR  EQUAL  TO  THE  SEAT  DIAMETER  (0) 


INPUT/OUTPUT  LIST 


PI 

INLET  PRESSURE 

PSIA 

INPUT 

P2 

OUTLET  PRESSURE 

PSIA 

INPUT 

T 

TEMPERATURE 

D6GR 

INPUT 

0 

DUCT  DIAMETER 

INCH 

INPUT 

(SEAT  DIAMETER  FOR  GLOBE 

VALVES) 

OPOPP 

POPPET  DIAMETER 

INCH 

INPUT 

(REQUIRED  FOR  GLOBE  VALVES  (IVAL=3)  ONLY) 

OPEN 

VALVE  OPENING 

I VAL=l  OEGREES  OPEN 

••• 

INPUT 

IVAL=2,3  FRACTIONAL  OPENING  ( 0. L5 .OPEN .LE . 1 . ) 

VAL 

CODE  IDENTIFYING  TYPE  OF 
=1.  butterfly  VALVE 
*2.  GATE  VALVE 
*3.  GLOBE  VALVE 

VALVE  - 

INPUT 

W 

FLOW  RATE 

L3/MIN 

OUTPUT 

COMMON/ CIO/ I READ, IWRITE,IDIAG 
DIMENSION  AKFC21) 

C  DATA  ARRAY  OF  K  FACTOR  FOR  GATE  VALVE 
C  INCREMENT  IN  FRACTIONAL  OPENING  IS  0.05 
C  ESTIMATED  DATA  FOR  FRACTIONAL  OPENING  LESS  THAN  0.12 
DATA  AKF  / 

1  1000.  ,600.  ,200.  ,51.  ,27. 

2  16.  ,10.  ,6.5  ,4.4  ,3.0 

3  2.05  ,1.33  ,0.94  ,0.b3  ,0.41 

-  0.26  ,0.162  ,0.096  ,0.050  ,0.020 

3  0.010  / 

UAC-VAL 

-*  r0  CIO, 20, 30)  IVAL 
•  •'  VAL/5  ANALYSIS 

ANGLE  OUTSIDE  LIMITS 
*  *‘N.»t.*o.) GO  TO  1“ 

•  •  i.l-l6«0»0*( 1. -COS (OPEN/57. 296)  )/4. 

-  >  l  .A2.T.AEFF, l.,FN,W) 
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Table  246:  LISTING  FOR  SUBROUTINE  VLX  (CONCLUDED) 


IF(0PEN.LT.0.)W*-W 
GO  TO/lOO 

14  AG FF*.87*3. 1416*0*0/4. 

CALI/  FNFL0W(P1,P2,T,AEFF,1.,FN,W) 

W=W*(  0.9* . l*0PEN/90 . ) 

GO  TO  100 

C  GATE  VALVE  ANALYSIS 

C  CHECK  IF  VALVE  OPENING  OUTSIDE  LIMITS 
20  IFIOPEN.LT. 0.05)GO  TO  22 

IF (OPEN.GT.l. )G0  TO  24 
X1=0PEN/. 05*1 • 

X1*AMIN1(AMAX1(X1, 1.)  ,29.  ) 

I»X1 

I*MINO(MAXO( 1 , 1 )  ,29 ) 

AK*(X1— I)*(AKF( I+l )— AKF ( I ) )  ♦  AKF(I) 

AEFF*. 7854*0*0 

CALL  FNFL0W(P1,P2,T,AEFF,AK,FN,W) 

GO  TO  100 

22  AEFF* .785**0*0 

CALL  FNFL0W(P1 »P2» T ,AEFF, 600 . ,FN ,W ) 

W=W*< 10 •♦OPEN )/10.05 
GO  TO  100 

24  AEFF*. 7854*0*0 

CALL  FNFL0W(P1,P2,T,AEFF, .01,FN,W) 

W»W*<0.904.10*OPEN) 

GO  TO  100 

C  CLOSE  VALVE  ANALYSIS 

30  XMAX* ( SQR  T ( .2  5*( 1 •♦SORT ( 1 •♦4.* ( DPOPP/D )**2. ) ) **2.— 1 • ) 

1  -  SQRT( I  0 POP P/0 ) **2.-l • ) )*0/2. 

C  CHECK  IF  VALVE  OPENING  OUTSIOE  LIMITS 
IF(OPEN.LT .0.05) GO  TO  32 
IF (OPEN.GT.l. >G0  TO  34 
X*  XMAX*OPEN 

0UM*(2.*X/D  ♦  SQRT ( (OPOPP/O )**2.-l. ) 1**2 .+1 • 

AGEO* (OUM- (DPOPP/D )**2.)*.7854*0*0/SQRT(DUM) 

C  CALCULATE  EFFECTIVE  AREA  AND  FLOW 
AEFF*0.80*AGE0 

CALL  FNFL0W(Pi,P2,T,AEFF,V.,FN,W) 

GO  TO  100  X 

32  X*  .05*XMAX 

0UM*(2.*X/0  ♦  SQR T( (OPOPP/O »**2.-l. )l**2.*l . 
AG£0*(0UM-( OPOPP/O )**2. )*.7854*0*0/SQRT(DUM ) 
AEFF«.80*AGEO 

CALL  FNFL0W(P1,P2,T,AEFF,1.,FN,W) 

W*W*( 10 •♦OPEN  J/10.05 
GO  TO  100 
34  X*XMAX 

0UM*(2.*X/0  ♦  SQRT( (OPOPP/D )**2 . -1 . ) >**2.*1. 
AGEO*(OUM-(OPOPP/0)**2. )*.7854*0*O/SQRT(0UM ) 

AEFF* ,80*AGE0 

CALL  FNFL0W(P1,P2,T,AEFF,1.,FN,W) 

W*W*( .90* . 10*OP£N  > 

100  RETURN 
ENO 
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Table  247:  LISTING  FOR  SUBROUTINE  VPRINB 


CVPRINB 

SUBROUTINE  VPR INB(K, I ,M ,MS, NE ,ZGAP ,Z0 ,YO, L 1, L3, AS ,UTY,FFXBAR, 

*  FFYBAR , FOB AR ,FT8AR ,CNT,CNTL»  CNTF ) 

VERSION  2.  REVISEO  20  MARCH  1979 

WRITTEN  BY  J.R.KILNER 

LIMITATIONS  -  CALLEO  ONLY  BY  COMPONENT  AB  AND  A1 
COMMON /CTIME/T 
C  OMM  ON/CO  VR  L  Y/ 1  NS  T 

C0MM0N/CSIMUL/D1, IRATE, D2(4) ,TINC,03<7) 

COMMON/BMADTS/INT 
C  OMMON/C 10/ I RE  A  D , IWR I TE , ID I AG 
REAL  L1,L3 
DIMENSION  A( 50, 11 ) 

DATA  NTIM/O/ 

I F ( INST. EQ. 27)  GO  TO  10 
NTIM*0 

IF ( INST «NE*26) GOTO  99 
IF(INT.NE.l)  GO  TO  99 
10  IF(K.EQ.O)GO  TO  22 

LOAD  PRINT  STORAGE  ARRAY 

J*I+( M— 1)*NE 
A ( J, 1 ) =ZGAP 
A! J,2)=Z0 
A  (  J  ,  3  )  =Y  0 
A ( J ,4 ) *L1 
A( J»5)=L3  ^ 

A  (  J , 6 ) =AS 
A ( J ,7 ) =UTY 
A ( J, 8 ) *FFXBAR 
A ( J ,9) =FFY8 AR 
A ( J , 10 ) *FD8AR 
A( J, 11)=FT8AR 
GOTO  99 
22  CONTINUE 

IFCINST.EQ.27.AND.NTIM.GT.0)  GO  TO  99 

PRINT  DATA 

WRITE! IWRITE,200)T 
DO  40  MM* 1 , MS 
00  40  J=1,NE 
JC*J+(MM-l)*NE 
40  WRITE  !IWRITE,202)J, ( A { JC t JR ) , JR*1 , 11 ) 

200  FORMAT!/*  TI ME** ,F7 .4/8X ,*ZGAP  ZO  YO  *, 

*  *L1  L3  AS  UTY  FFX  *, 

*  *FFY  FD  FT  *) 

202  FORMAT! IX, 12, 2X,11E10.3) 

CNTL*.5*CNTL/NE 

CNTF*.5*CNTF/NE 

WR ITE( IWR ITE, 204 )CNT,CNTL, CNTF 
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Table  247:  LISTING  FOR  SUBROUTINE  VPRINB  (CONCLUDED) 


204  FORHAK*  CNT®*,E10.3,6X,*CNTL=*,E10.3t6X,*CNTF**,  E10.3) 
CNT=0. 

CNTL»0. 

CNTF«0. 


99 


NTIM-l 

RETURN 

END 


/ 
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Table  248:  LISTING  FOR  SUBROUTINE  VPRINT 


CVPRINT 

SUBROUTINE  VPRINT1K, I, H,MS,NE,ZGAP,Z0,Y0,L1 ,L3,VTS, VC$,FFXBAR, 
*  FPYBAR,FDBAR,FT&AR,FCBAR,AGAP) 


VERSION  2. 


REVISED  20  MARCH  1979 


WRITTEN  BY  J.R.KILNER 

LIMITATIONS  -  CALLED  ONLY  8Y  COMPONENT  TK 
COMMON/CTIME/T 
COMMON/CO VRLY/ INST 

COMMON/CSIMUL/D1* IRATE»D2(4) »TINC  »D3(7) 

COMNON/BHAOTS/INT 

COMMON/C 10/ IRE A D» I WRITE  * I DI AG 

REAL  L1*L3 

DIMENSION  A  i  5  0  » 12 ) 

DATA  NTIM/O/ 


IFdNST.EQ.27)  GO  TO  10 
NTIM«0 

IF!  INST.NE .26 ) GOTO  99 
IF( INT.NE. 1)  GO  TO  99 
10  IF(K.EQ.O) GOTO  22 

LOAD  PRINT  STORAGE  ARRAY 


J*I*!M-1)*NE 
A<J,1)*ZGAP 
A! J»2)*Z0 
A( J,3)*Y0 
A( J  »4)=Ll 
A( J , 5 )=L3 
A (J  »6)*VTS 
AIJ,7)«VCS 
A( J  »8 )*FFXBAR 
A! J*9)*FFYBAR 
A(J,10)*FDBAR 
A(J,ll)«FT8AR 
A!J,12)«FC3AR 
GOTO  99 
22  CONTINUE 

IF (2NST.EQ.27.AN0.NTIM.GT .0 )  GO  TO  99 

PRINT  OATA 

WRITE! XWRITEy 200) T 
DO  40  MM*l,MS 
DO  40  J«i,NE 
JC»J+(MM-1)*NE 
40  WRITE !IWRITE,202)J*!a! JC,JR),JR«1»12) 

200  FORMAT!/*  TIME»*,F7.4/8X , *ZGAP  ZO  YO  *, 

*  *L1  L3  VT  VC  FFX  *, 

*  *FFY  FO  FT  FC  *) 

202  FORMAT! lX«I2f2Xfl2E10. 3) 

WRITE! IWRITEy 204) AGAP 


Table  248:  LISTING  FOR  SUBROUTINE  VPRINT  (CONCLUDED) 


FORMAT (2Xt  *AGAP=*»E10«3) 

NTIM=1 

RETURN 

END 
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Table  249:  LISTING  FOR  SUBROUTINE  WS 


CWS 

SUBROUTINE  W$ ( TWS , UWS  ,  VWS  ,WWS  ,WK  ,W  Ain,  ALT »  PIT*  ONI  ) 

REAL  MF 

VERSION  2.  MARCH  31  1978 

PURPOSE  SIMULATE  WI,nO  SHEAR  OR  STEADY  WIND  COMPONENTS 
METHOO  WIND  MAGNITUDE  QUOTED  AT  TOWER  ALTITUOE  OF  50  FEET  IS 
MOOIF ISO  BY  A  NON-LINEAR  SHEAR  FACTOR  TO  REFLECT  THE 
CHANGE  IN  WIND  WITH  ALTI TUDE . W INO  VECTOR  ASSUMEO 
PARALLEL  TO  THE  GROUND  PLANE. THE  WIND  MAGNITUDE  MODIFIED 
BY  SHEAR  IS  RESOLVED  ALONG  THE  RUNWAY  COORDINATES  NORTH 
ANO  EAST ( FWO  ♦  SIOEJAND  TRANSFORMED  INTO  BODY  AXES. 

CALL  SEQUENCE 

******  table  ****** 

TWS  -ONE  DIMENSIONAL  TABLE  OF  WIND  SHEAR  FACTOR  AS  A 
-FUNCTION  OF  AIRPLANE  CG  ALTITUOE 
******  OUTPUTS  ****** 

LINEAR  VELOCITIES  —  BODY  AXES 

UWS  -X  AXIS  STEADY  OR  SHEAR  WINO  VELOCITY,  FT/SEC 

VWS  -Y  AXIS  STEAOY  OR  SnEAR  WINO  VELOCITY,  FT/SEC 

WWS  -Z  AXIS  STEADY  OR  SHEAR  WINO  VELOCITY,  FT/SEC 

******  INPUTS  ****** 

WK  -WINO  MAGNITUDE  AT  50  FEET  (TOWER),  FT/SEC 

WAN  -ANGLE  3ETWEEN  THE  WIND  VECTOR  ANO  RUNWAY  CENTERLINE, OEG 
ALT  -AIRPLANE  CG  ALTITUDE,  FT 
PIT  -PITCH  ANGLE  EARTH  TO  800Y,  OEG 

INDICATOR  FOR  STEAOY  OR  SHEAR  WINO 

DNI=  C  SHEAR  WINO, TABLE  LOCKUP  FACTOR 
*  1  STEADY  WIND,  FACT0R*1. 

WRITTEN  BY  MAHINOER  WAHI  MAY  1977 

DIMENSION  TWS ( 1 > 

SET  DEFAULTS 

IF ( ISW.EQ. 1)G0  TO  10 
Ic  (WK .EQ.  .99999)  WK=0. 

IF (WAN. EQ •  .99999)  WAN=0. 

IF (ALT .EQ .  .99999)  ALT=0. 

IF (PIT.EQ.  .99999)  PIT=0. 

ISW=1 

C  COMPUTE  WINO  SHEAR  FACTOR 
10  IFIDNI.NE.C.)  GO  TO  20 
NX  =  TWS  (2) 

MF  =  TBLUl ( ALT , TWS ( 4) ,TWS ( NX+4) , 1 ,-NX ) 

GO  TO  30 
20  MF=1. 

C  RESOLVE  WIND  INTO  NORTH  ANO  EAST  COMPONENTS 
30  WKN»-WK*MF*C0S(WAN*.017A5) 

WKE*  WK*MP*SIN  (WAN *.01 7^*5  ) 

C  TRANSFORMATION  from  EARTH  TO  3Q0Y  AXIS 
UWS*  WKN*CCS( PIT*. 01745) 

VWS*  WKE 

WWS*  -WKN*SIN (PIT*. 01745) 

RETURN 

EMO 


.  .JL. 
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Table  250:  LISTING  FOR  SUBROUTINE  XP 


SUBROUTINE  XP ( T,P2 , 02 ,R2» P1»Q1 »R I) 

VERSIONS  I.  REVISED:  JUNE  10  1976 

PURPOSE:  PERFORM  STATIC  TRANSFORMATION  ON  THREE  VECTOR 

CALL  SEQUENCE: 

T  -  TRANSFORMATION  MATRIX 

P2»Q2*R2  -  OUTPUT  VECTOR  COMPONENTS 

PltQl »Rl  -  INPUT  VECTOR  COMPONENTS 

0ESI6NE0  8Vf  J.O.  BURROUGHS  JUNE  1976 

DIMENSION  T(18) 

P2«PI*T(10)+Q1*TU1)+R1*T(121 

Q2*Pl*Tfl3)*Ql*T(14|«>Rl*T(15) 

R2»PI*TU6)*Q1*T(  17)4-R1*T(18> 

RETURN 

ENO 
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Table  251:  LISTING  FOR  SUBROUTINE  XT 


CXT 


SUBROUTINE 
VERSION:  l. 
PURPOSE:  PERFORM 

CALL  SEQUENCE: 

T 

P2»Q2  »R2 
Pl,QI,Rl 

0ESI6NE0  BY:  J.O. 


XT(T,P2,Q2,R2,PI,QltRl) 

REVISEO:  JUNE  10  1976 
STATIC  TRANSFORMATION  ON  THREE  VECTOR 


TRANSFORMATION  MATRIX 
OUTPUT  VECTOR  COMPONENTS 
INPUT  VECTOR  COMPONENTS 
BURROUGHS  JUNE 


DIMENSION  T(18> 

P2»P1*TI10)+Q1*T(11)>R1*T(12> 

Q2»Pl*Tll3)i-Ql*T(l4)*Rl»Ttl5) 

R2sPl*Ttl6)+Ql*T( 17)+R1*T<18> 

RETURN 

END 


1976 


Table  252:  LISTING  FOR  SUBROUTINE  XXPRT 


CXXPRT 


SUBROUTINE  XXPRTIX,  I,M,MS,NE,2GAP,Z0,Y0,L1,L3,VTS,VCS  ,PPXBAR 


FFY3AR,F08AR,FT8AR,FC3AR,L2, AGAP , EP ,TX ,TY,TZ , AT, AC ) 


C  VERSION  2 


REVISED  MARCH  1979 


C  WRITTEN  8Y  -  GS  DULEBA 


PURPOSE  -  TO  STORE  AND  WRITE  VALUES  OF  ELASTIC  TRUNK 
VARIABLES  DURING  SIMULATION. 

LIMITATIONS  -  CALLEO  ONLY  BY  COMPONENT  TS 


COMMON/CTIME/T 

COMMON/CQVRLY/INST 

COMMON/CS IMUL/Di, IRATE* 02 (4) »TINC, D3 ( 7 ) 

COMMON/8MAOTS/INT 

COMMON/CI O/IR  EAD , I WRI TE » 1 01 AG 

REAL  LI »L2  *L3 

DIMENSION  A(50, 10) »  8(50,10) 

DATA  NTIM/O/ 


IF (INST. EQ. 27)  GO  TO  10 
NTIM«0 

IF (INST.Ne.26 )GOTO  99 
IF (INT.NE • 1 )  GO  TO  99 
CONTINUE 


C  LOAO  PRINT  STORAGE  ARRAY 


IF(K.EQ.l)  GO  TO  22 
J»I-**(M-1)*NE 
A ( J , 1 ) *ZGAP 
A ( J,2 )SZ0 
A ( J»3) *Y0 
A( J,4)= AGAP 
A ( J, 5 ) *L1 
A( J,6)«L2 
A(J,7)«L3 
A ( J, 8 >*£P 
A( J»9)*VTS 
A ( J, 1C) *VCS 


B( J,1 >*FFXBAR 
B( J,2)*FFYBAR 
9( J,3)*e08AR 
3 ( J»4) »FTBAR 
9 ( J, 5 ) *FCB AR 
3 ( J , 6 ) *TX 
8 ( J»7) *TY 
9( J,8)«TZ 
3( J,9)«AT 
8 ( J, 10) *AC 
GO  TO  99 
CONTINUE 
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Table  252:  LISTING  FOR  SUBROUTINE  XXPRT  (CONCLUDED) 


C 

IP (INST.cQ.27.ANO.NTIM.GT.O)  GO  TO  99 
PRINT  DATA 

WR ITE ( IWR ITS, 200 ) T 
DO  40  MM=  1  » MS 
00  40  J=1 ,NE 
JC=J+(MM-1 )*N£ 

40  WRITE(IWRITE»202)J»(A(JC?JR)»  JR= l*  10  > 

200  FORMAT  ( /*  TIM5=*,F7.4/10X,  4HZGAP ,  9X,  2HZ0,  IOX,  2HY0 

2  8X,  4HAGAP,  IOX,  2HL1,  ICX,  2HL2,  ICX,  2HL3.  LOX,  2HE 

3  IOX,  2HVT,  IOX,  2HVC) 

202  FORMAT! IX , 12, 2X, 10E12 .4) 

WRITS(I*RITE,300) 

00  50  MM=1,MS 
00  50  J=l,NE 
JC=J+ (MM— 1 )*NE 

50  WRITE(IWRITE,202)  j  ,( 8 ( JC , JR ) , JR=1 , 10) 

300  FORMAT (//, 11X,  3HFFX,  9X,  3HFFY ,  9X,  2HFD,  ICX,  2HFT,  ICX, 

2  2HFC,  IOX,  2HTX,  IOX,  2HTY,  IOX,  2HTZ  ,  IOX,  2HA T, 1  OX , 2HAC ) 
C 

NTIM*1 
99  RETURN 
END 


►  a 


nooonoooo 


Table  253:  LISTING  FOR  SUBROUTINE  YC 


CYC 

SUBROUTINE  YC(FX,FXOOT,IFX,FY,TX  ,TZ , ED ,TM , ST, SR , Cl , C2 , SIG ,GA, 

1  TC»TH, XA, ZA) 

VERSION  2.  AUG  1977 

— PURPOSE  YAW  CONTROL  TRUSTER 

— METHOD  VECTORED  THRUST  IS  A  FUNCTION  OF  SIG  IN  A  SATURATION  FUNCTION, 

WHERE  SIG  IS  AN  INPUT  FROM  AIRCRAFT  CONTROL  SYSTEM  COMPONENT. 
IF  THE  ENGINE  OEPENOENCE  INDICATOR  ED  IS  1,  VECTORED  THRUST 
CAPABILITY  IS  DEPENDENT  ON  ENGINE  THRUST  ED=0  SETS  AVAILABLE 
VECTOREO  THRUST  TO  A  CONSTANT. 

C— CALL  SEQUENCE 


c 

***** 

OUTPUTS  ***** 

c 

FX 

ENGINE  THRUST  REDUCTION 

c 

PXOOT 

«• 

PH 

m 

X 

THRUST  REDUCTION  RATE, INT  CONTROL 

c 

fy 

VECTOREO  THRUST-SIDE  FORCE 

c 

Tx 

ROLL  MOMENT  OUE  TO  THRUSTER  NOT  ON  X-AXIS 

c 

TZ 

YAW  MOMENT  DUE  TO  THRUSTER 

c 

***** 

INPUTS  ***** 

c 

ED 

ENGINE  DEPENDENCE  INDICAT0R(£0*1.0,YES  E0=0.0,NO) 

c 

TM 

THRUSTER  MAXIMUM  FORCE  FOR  ENGINE  INOEPENOENT  SYSTEM 

c 

ST 

SLOPE  FOR  MAXIMUM  AVAILABLE  SIDE  THRUST  AS  FUNCTION 

c 

OF  ENGINE  THRUST 

c 

SR 

SLOPE  OF  ENGINE  THRUST  REDUCTION  AS  FUNCTION  OF  VECTOREO 

c 

Cl 

SATURATION  FUNCTION  SLOPE 

c 

C2 

SATURATION  SLOPE 

c 

SIG 

AIRCRAFT  CONTROL  SYSTEM  SIGNAL  TO  THRUSTER 

c 

GA 

FIRST  ORDER  LAG  GAIN 

c 

TC 

FIRST  OROER  LAG  TIME  CONSTANT 

c 

TH 

ENGINE  THRUST 

c 

XA 

THRUSTER  YAW  MOMENT  ARM 

c 

c 

ZA 

THRUSTER  ROLL  MOMENT  ARM 

L 

c 

WRITTEN 

i  BY 

JOHN  MCAVOY 

c- 

-SWITCH 

FOR 

ENGINE  DEPENDENCE 

IF (ED. GT. 0.5)  GO  TO  1 

TVA=TM 

GO  TO  2 

C — AVAILABLE  VECTORED  THRUST 

1  TVA=ST*TH 

C — SATURATION  INTERCEPT 

2  C3»TVA/C1 
C6=-C3 
C4=C1 
C5=C2 

C — SATURATION  FUNCTION, FY (SIG) 

CALL  SA(FY ,SIG,C1»C2»C3»CA»C5»C6 ) 
IF ( ED.LT.0.5)  GO  TO  3 

C — ENGINE  THRUST  REDUCTION  FUNCTION 
FRs-SR*ABS(Fv) 

C— 1ST  OROER  LAG  CN  ENGINE  RESPONSE 

IF(IBX.NE.O)  FXDOT*(FR*GA-FX)/TC 

3  CONTINUE 

C~V  ECTOR  ED  TmRUST  MOMENTS 
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Table  253: 


LISTING  FOR  SUBROUTINE  YC  (CONCLUDED) 


TX*FY*ZA 

TZ=FY*XA 

RETURN 

END 
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SECTION  VII 


ANALYSIS  OF  COMPONENTS 


Although  the  EASY  model  generation  and  analysis  program  is  primarily  intended 
for  the  analysis  of  systems  it  is  possible  to  use  the  program  for  the  analysis 
of  single  components.  The  basic  procedures  and  types  of  analysis  and  output 
are  fully  described  in  Reference  1,  Volume  III. 

It  should  be  recognized  that  there  are  some  constraints  in  running  single 
components.  For  example,  a  controller  cannot  be  used  in  isolation  if  there  is 
no  feedback.  Furthermore  types  of  input  variable  must  comply  with  the 
input/output  lists  of  particular  components.  This  means  that  for  most  single 
components,  the  inlet  flow  and  temperature  can  be  specified  but  not  inlet 
pressure. 
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SECTION  VIII 


USER  ADDED  COMPONENTS 


It  is  recognized  that  users  of  the  EASY  program  will  wish  to  add  their  own 
dynamic  models.  As  discussed  in  Reference  1,  Volume  III,  this  can  be  done  by 
inserting  the  component  model  in  Fortran  directly  into  the  model  generation 
program.  Alternatively,  the  new  model  can  be  added  to  the  list  of  standard 
components. 

Before  constructing  a  model,  the  user  should  become  familiar  with  the 
numerous  standard  functions  and  subroutines  described  in  Section  3  of  this 
volume.  Use  of  these  routines  will  save  a  great  deal  of  unnecessary  coding. 
The  user  should  also  become  familiar  with  the  required  order  of  specifying 
inputs  and  outputs  in  the  subroutine  call  statement,  as  described  in  Reference 
1,  Volume  III. 

The  only  other  guidelines  are  really  common  sense  and  apply  to  any  dynamics 
program.  The  programing  of  discontinous  functions  should  be  avoided  wherever 
possible.  Similarly  excessive  non-linearities  are  undesirable  since  they  slow 
down  steady  state  convergence  and  simulation.  For  example,  if  it  is  desired 
to  represent  the  force  vrfien  an  actuator  hits  a  stop,  it  is  preferrable  to 
model  this  by  a  spring  force  over  the  last  1%  or  5%  of  travel  rather  than  a 
step  input  at  the  limit.  The  eigenvalues  of  the  model  should  always  be 
examined,  and  modified  if  necessary,  to  avoid  unnecessary  high  frequency 
dynamic  effects. 
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V  • 


APPENDIX  A 


EASY  DOCUMENTATION  INDEX 


The  following  Index  provides  a  cross  reference  for  the  following  EASY  ACLS 
documents: 


Volume  I 
Volume  II 
Volume  III 

Reference  2  (Volume  III  Part  1) 
User's  Manual  (UM)  (Reference  1) 


Capitalized  words  in  the  index  are  EASY  Conmand  Phrases 


Reference  2 


ACIS  Permanent  File 


Reference  2  - 
UM-Pg  12,  267 


ADO  Commands 


Reference  2 


ALL  STATES 


Reference  2 


Analysis  Program 


Reference  2  -  I 
UM-Pg  181,  182 


AUTO  SCALES 


Reference  2 


Reference  2 


Component  Connections 


Reference  2 


Oata  Format 


Reference  2 


OATA IN,  Subroutine 


Reference  2  -  Pg  259 


Reference  2 


DEFINE  Commands 


UM-Pg  7 

Reference  2  -  Pg  115;  UM-Pg  196,  269 


Delimiters 


DESIGN  O.C 


Reference  2 


DIAGNOSTIC  CONTROL 


Reference  2 


0ISPLAY1 


Reference  2 


Reference  2 


EIGEN  PARAMETER 


Reference  2 


EIGEN  SENSITIVITY 


Reference  2 


Eigenval ue 

Eigenvalue  Sensitivity 
END  OF  MOOEL 


Reference  2 


Reference  2  - 
UM-Pg  11,  267 


Reference  2 


ERROR  CONTROLS 


Reference  2 


EQMO,  Subroutine 


FILOAO  Program 
FORTRAN  STATEMENTS 


Reference  2  -  Pg  225 


Reference  2  - 
210;  UM-Pg  12 


Reference  2 


FUNCTION  SCAN 


INITIAL  CONDITIONS 


Reference  2 


Reference  2 


INITAL  TIME 


INPUTS 


Reference  2  - 
UM-Pg  10,  267 


I  NT  CONTROLS 


Reference  2 


Reference  2  -  Pg  97;  UM-Pg  176,  177,  272 


Reference  2 


Input  Requirements  List 


Reference  2 


LINEAR  ANALYSI 


Reference  2 


Lineprlnter  Schematic 
Listings 
Compass  Routines 


Reference  2  Pt  2  -  Pg  320 


Fluid  Property  Routines 


Miscellaneous  Routines 


Model  Analysis  Program  Reference  2  Pt  2  -  Pg  75 

Model  Generation  Program  Reference  2  Pt  2  -  Pg  3 

Permanent  F’le  Maintence  Program  Reference  2  Pt  2  -  Pg  252 
Plotting  Routines  Reference  2  Pt  2  -  Pg  269 

Standard  Components  Volume  II  -  Pg  52 

Transfer  Function  Routines  Volume  II  -  Pg  17 


Reference  2  -  Pg  25,  27,  34,  199 
225;  UM-Pg  14,  267 


LIST  STANOARO  COMPONENTS 


LOCATION 


Reference  2  -  Pg  12,  22,  34,  199,  200; 
UM-Pg  9,  257 


MANUAL  SCALES 

Mathematical  Models 
MODEL  DESCRIPTION 

Model  Generation  Program 

Naming  Conventions 

NEW  FILE 

NICHOLS 

NO  STATES 

NYQUIST 

O.C.  ANALYSIS 
O.C.  CRITERIA 
O.C.  DATA 
O.C.  INPUTS 
O.C.  MODEL  ORDER 
O.C.  ORDER 
O.C.  OUTPUTS 

Optimal  Controller  Design 

OUTRATE 

Overlay 

PARAMETER  VALUES 
Permanent  File  Maintenance 
PLOT  ALL  TABLES 
PLOT  ID 


Reference  2  -  Pg 
UM-Pg  181,  182 


Volume  I 

Reference  2 
UM-Pg  5,  9, 

Reference  2 

Reference  2 

Reference  2 

Reference  2 

Reference  2 

Reference  2 

Reference  2 
Reference  2 
Reference  2 
Reference  2 
Reference  2 
Reference  2 
Reference  2 
Reference  2 
Reference  2 
Reference  2 

Reference  2 
Program  Reference  2 
Reference  2 
Reference  2 


-  Pg 

-  Pg 

-  Pg 


-  Pg 


-  Pg 

-  Pg 


103,  106,  107; 

12,  22,  34,  199; 

6,  195;  UM-Pg  1,  4 
32;  Um-Pg  16 
226 

106;  UM-Pg  187,  273 
93;  UM-Pg  175,  269 
106;  UM-Pg  187,  273 

31,  34,  199;  UM-Pg  16,  267 
29,  34,  199;  UM-Pg  15,  267 
110;  UM-Pg  192,  269 
26,  34,  199;  UM-Pg  14,  267 
31,  34,  199;  UM-Pg  15,  267 
31,  34,  199;  UM-Pg  15,  267 
26,  34,  199;  UM-Pg  14,  267 
85,  110,  150;  UM-Pg  192 
96;  UM-Pg  176,  272 
236 

93;  UM-Pg  172,  270 
240 

95;  UM-Pg  180,  270 
94;  UM-Pg  182,  270 
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PLOT  OFF 

Reference  2  -  Pg 

PLOT  ON 

Reference  2  -  Pg 

PLOT  TABLES 

Reference  2  -  Pg 

PRATE 

Reference  2  -  Pg 

PRINT 

Reference  2  -  Pg 

PRINT  CONTROL 

Reference  2  -  Pg 
270 

PRINTER  PLOTS 

Reference  2  -  Pg 

PRINT  VARIABLES 

Reference  2  -  Pg 

Program  Limitations 

Reference  2  -  Pg 

PUNCH 

Reference  2  -  Pg 
267,  270 

PURGE 

Reference  2  -  Pg 

ROOT  LOCUS 

Reference  2  -  Pg 
UM-Pg  188,  270 

SAVE  O.C. 

Reference  2  -  Pg 

SCAN  1,  SCAN  2 

UM-Pg  190,  271 

SIMULATE 

Reference  2  -  Pg 

Simulation 

Reference  2  -  Pg 

STABILITY  MARGINS 

Reference  2  -  Pg 
UM-Pg  185,  272 

Stability  Matrix 

Reference  2  -  Pg 

STEADY  STATE 

Reference  2  -  Pg 
UM-Pg  183,  272 

SYMBOL 

Reference  2  -  Pg 

TABLE 

Reference  2  -  Pg 

TINC 

Reference  2  -  Pg 

TITLE 

Reference  2  -  Pg 

93;  UM-Pg  180,  270 

93;  UM-Pg  180,  270 

95;  UM-Pg  180,  270 

96;  UM-Pg  176,  272 

19,  34,  199;  UM-Pg  11,  267 

98;  UM-Pg  176,  178,  183, 

93;  UM-Pg  180,  270 
100;  UM-Pg  179,  269 
230;  UM-Pg  257 

19,  34,  199;  UM-Pg  11, 

225 

78,  107,  146; 

115;  UM-Pg  196,  271 

96;  UM-Pg  176,  272 

71,  123 

76,  105,  137; 

131 

74,  101,  128, 

40,  225 

120;  UM-Pg  173,  273 
96;  UM-Pg  176,  272 
94;  UM-Pg  182,  273 


UM-Pg  186,  273 


Reference  2  -  Pg  78,  106,  142; 
UM-Pg  176,  272 


Reference  2  -  Pg  66,  180;  UM-Pg  21,  196 

Volume  III;  UM-Pg  204 

Reference  2  -  Pg  95;  UM-Pg  175,  274 


TRANSFER  FUNCTION 
TMAX 


Warning  Messages 
Worked  Examples 
XIC  Commands 
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